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Mit Wirkung vom 31.12.1987 hat 
die MSX-Info ihr Erscheinen 
eingestellt. Grund: Das sowieso 

nur unregelmäßig erschienene 
Magazin fuhr sagenhafte Verluste 
ein. Der niederländische Verlag 
stellte fast gleichzeitig auch 
das Erscheinen der nieder- 
ländischen Ausgabe ein. Die 
Abonennten sollen ihr bereits 
gezahltes Geld für die Abos 
ausnahmslos zurückbekommen. 

Für alle Fälle hier die 
Anschrift und die Telefonnummer 
des Verlages : 

Sa la Communica t ions 

MSX-Info 

Ceintuurbaan 26 

NL-1271 BJ Huizen 

Direktdurchwahl von der BRD: 

0031 - 2152 - 65695 




EDITORIAL 

Liebe(r) Leser ( in) , 

als ich anläßlich der Inter- 
nationalen Funkausstellung in 
Berlin 1985 den Vertrag mit dem 
niederländischen Verlag SAC 
unterschrieb, glaubte ich wie 
viele Andere an eine glorreiche 
Zukunft der MSX- Compu ter , denn 
sonst hätte ich mich nicht bis 
zum 31.12.1987 für die MSX-Info 
verpflichtet. Nun ist die Zeit 
vorbei, aber auch die MSX-Info 
gibt es nicht mehr. Klar, das 
zuletzt sehr halbherzige 
Engagement des niederländischen 
Verlages basierte nicht zuletzt 
auf den Verlusten, welche die 
MSX-Info tatsächlich einbrachte. 
Trotzdem hatte ich mir oft mehr 
Zuverlässigkeit des Verlages 
gewünscht, denn nicht selten 
riefen mich erboste Leser an. 

Das die Adresse meines Büros nur 
W e i t e r 1 e i t ung s s t e 1 1 e an den 
Verlag in den Niederlanden war, 
haben manche wohl nicht gewußt, 
trotzdem habe ich immer versucht 
zu vermitteln. Jetzt ist das 
alles anders: Meine Adresse und 

meine Telefonnummer ist Ihre 
direkte Kontaktmöglichkeit. 
Sollte ich nicht da sein, so 
selten ist das nicht, arbeitet 
mein Anrufbeantworter für Sie. 
Sprechen Sie dann Ihre Nachricht 
ruhig auf Band. Auf jeden Fall 
werden wir uns um Sie kümmern. 
Dieses Magazin arbeitet bestimmt 
nicht mit Gewinn. Im Gegensatz 
zur MSX-Info können wir keine 
Honorare für Artikel, oder 
Listings bezahlen. Trotzdem sind 
wir auf Ihre Mitarbeit unbedingt 
angewiesen. Das MSX-Magazin soll 
das Kontaktmedium für uns alle 
sein. Bitte beteiligen Sie sich 
mit redaktionellen Beiträge und 
Programmen an unserer Arbeit. 

Ich danke Ihnen im Namen aller 
MSX-User dafür. Private 
Kleinanzeigen jeder Art sind 
absolut kostenlos und unbedingt 
erwünscht, denn der Dialog wird 
im Sinne Aller an vorderster 
Stelle stehen. Auch wenn die 
Industrie uns MSX-User 
alleinließ, MSX-Computer sind 


vergleichsweise hochwertige 
Rechner und bei guter Zusammen- 
arbeit werden wir alle gemeinsam 
noch sehr lange Spaß mit unserem 
Hobby haben. Wichtig ist nur 
eins: Sie müssen wirklich alle 

mitmachen, auch wenns kein Geld 
bringt, aber Freude an einem 
Hobby ist doch unbezahlbar. 

Ich hoffe auf viele Artikel und 
Programme und wünsche Ihnen 
allen viel Glück im Jahr 1988. 

Ihr Hartmut Dirks 





MITMACHEN 

UND 

SPASS HABEN !!! 




MSX-MAGAZIN ABONNEMENT 1988 


Sie möchten auch die 8 nächsten 
Hefte im Jahr 1988 frei ins Haus 
bekommen ? 

Das ist ganz einfach !!! 

Senden Sie uns über den Betrag 
von 27,- DM einen Verrechnungs- 
scheck, oder 27,- DM in bar. 

Sie werden alle 6 Wochen das 
neueste MSX-Magazin frei ins 
Haus bekommen. 

Der Preis des ersten Heftes, die 
Versandkosten für alle Magazine, 
und auch die Mehrwertsteuer sind 
im Abopreis mit enthalten. 
Schneller und preisgünstiger 
gehts nicht mehr. 

So bleiben Sie immer auf dem 
Lauf enden . 


Noch ein Tip: 

Schreiben Sie Ihre Anschrift 
bitte gut lesbar, damit Sie auf 
Ihr Heft nicht umsonst warten ! 

Empfehlen Sie das Magazin 
anderen Usern. Das MSX-Magazin 
ist Ihre Zeitschrift !!! 

Wir alle gemeinsam brauchen 
dieses Kontaktmedium, denn 
alleingelassen wurden wir genug! 
Beteiligen Sie sich mit Artikeln 
und Programmen an der Gestaltung 
des Heftes - wie gesagt: 

Es ist auch Ihr Magazin. 


HIER GIBTS WAS ZU GEWINNEN !!! 
DIE MSX-SOFTWARE TOP TEN 


Jawohl, wir verlosen in jeder 
Ausgabe 5 Sof twar e t i te 1 aus dem 
Programm der ODIN-Sof tware 

GmbH. Jeder der 5 Gewinner darf 
sich 1 Titel aussuchen, egal ob 
es sich um ein Modul, eine 
Diskette, oder eine Kassette 
hand e 1 1 . 

Die Teilnahmebedingungen: 

Jeder darf nur einen Tip 
abgeben. Schreiben Sie den Titel 
und den Datenträger einfach auf 
eine Postkarte, so zum Beispiel: 
Da wn Patrol / Kassette, oder: 
Rollerball / Modul. 

Wichtig! ! ! 



Es spielt keine Rolle ob Ihr Tip 
auf Platz 1, Platz 10, oder 
überhaupt in der Top Ten 
plaziert wird. Die Gewinner 
werden unter allen Einsendungen 
ausgelost. Jeder hat also 
dieselbe Chance, egal welchen 
Tip er abgibt. 

Senden Sie eine Postkarte mit 
Ihrem Tip an: 

MSX-Magazin 
Top Ten 

Hengs tbrüchelchen 39 
D-5108 Monschau 4 



Hier nun die derzeitige Top Ten: 
Platz / Titel / Datenträger 


1 . 

Maze of Gallious 

/ 

ROM 

2 . 

Pengouin Adventure 

/ ROM 

3 . 

Nemesis 2 / ROM 



4. 

Vampire Killer / 

ROM 

5 . 

Metal Gear / ROM 



6. 

Dawn Patrol / Disk 


7 . 

Police Academy / 

Disk 

8 . 

Chopper 1 / Kass 



9 . 

Game Master / ROM 



10 . 

Enigma / Disk 




Diese Top Ten wurde noch nach 
Zahlen der ODIN- Sof twar e GmbH 
zusammengestellt. 

Die Gewinner werden außerdem 
bekanntgegeben. 


SOEIIEN EltVOETIMIFFEkV: 



MF 

»AS AUTOREKXEJi »Elf 
SHI'EKIILASSE !!! 

MSX1+2 RKM-AUHUIL 
65,- KM 

ERHAELTLICH BEI DER ODIN-SOFTWARE GMBH, HANSMANNSTR. 19 
D-5100 AACHEN, TELEFON: 0241-550007 (MO-FR VON 8.30-17.00 UHR), 
ODER BEI ALLEN GUTEN FACHHAENDLERN. 




MSX AUF ARABISCH 


Es ist kaum zu glauben, aber 
speziell in den arabisch 
sprechenden Ländern haben sich 
viele MSX-Rechner eingefunden. 
Yamaha hat für diesen Zweck drei 
verschiedene Computer auf den 
Markt gebracht. Die besonderheit 
dieser Rechner ist ein auf 
arabische Zeichen umgewandelter 
BIOS-ROM. Die Firma Al Alamiah 
Software har wie Konami bei uns 
ein entsprechendes Angebot an 
ROM-Modulen auf den arabischen 
Markt gebracht. Allerdings 
findet man kaum S p i e 1 s o f twa r e . 
Christian Rakow, ein niederlän- 
discher Computerfan, fand vor 
allem Lernsoftware und ROM- 
Module die helfen sollen, den 
Koran zu lernen. Die Module 
laufen übrigens auch auf unseren 
Rechnern, da diese zwei Modi 
kennen, einmal den arabischen 
und andererseits den englischen 
Modus. Der Bedarf an ROM- 
Modulen, die den Koran 
vermitteln, dürfte allerdings 
bei den nichtarabischen 
Europäern sehr gering sein. 
Sollten Sie jedoch trotzdem 
einmal ein solches Modul 
entdecken, dann zögern Sie nicht 
es zu einem günstigen Preis zu 
kaufen. Die Bilder die diese 
Software auf Ihren Monitor 
bringt, soll wirklich bezaubernd 
sein, fast wie in 1001 Nacht. 

Für die Bilder und Informationen 
danken wir dem Christian Rakow. 
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AKTUELLE ANWENDERPROGRAMM 


F~ J. B LJ €2 O M F-" 

Die praktische Buchführung 

N a. c h d e m S i e I h r e n i< o n t e n p I a n m i t bis z u 6 0 
Kon t en er st e 1 1 1 h ab en 9 k ö n n en 8 i e b er e i t s rn i t 
d e n E3 u c h u n g e n Id e q i n n e n 

o Ausdruck ei ner "vor 1 auf i qen Sa.1 den bi 1 ans 
o Ausdruc k von Grundbuch u » Kontenb 1 ätter n 
o e i n f a c h e o d e r d o p p e 1 1 e B u c h f ü h r u n g 
o a u t o rn a t. i s c. h e K o n t o s t a. n c:l b e r e c h n u. n g 
o n l i r .}. D i s k © 1. 1 e n 1 a u t w e r k e r f o r d e r 1 1 c h 
o i n c 1 « d e u t s c h e r A n 1 e i t u n g 
o 3n5" Diskette für MSX nur 98«- DM 



k ä i rc i i Ft Et: m 

Tabel lenkalkulation mit Grafik 

o v i e 1 f ä 3. t i q e B e r e c h n u n g s rn ö g 1 i c h k e i t e n 
k o rn p 1 i z i e r t e F o r m © 1 n 
o 2 0 ^ 4 0 = 8 0 0 E i n g a b e f e 1 d e r 
o s c r o 1 1 e n d e s A r b e i. t s b 1 a 1 1 e s 
o A n z a h 1 d e r N a c: h k o rn rn a s t e 1 1 e n w ä h 1 b a r 

o B a 1 k e n g r a f i k 
o i n c 1 „ d e u t s c h e r A n 1 e i t u n g 
o 3.5“ Diskette für MSX nur 98.- DM 


EE FATGRAF 

Das Haushaltsbuch mit Grafik 

V e r • w a 1 1 e n S i e I h r e A u s q a b e n rn i t d e m 0 o rn p u t e r „ 
D i e q r a f i s c h e n A u s w e r t u n g s m ö g 1 i c: h k e i t e n v e r - 
s e h a f f e n I h n e n j e d e r z e :i. t e i n e n q u t e n G e s a m t - 
üb er bl ick., 

o b i s z u 1 8 v e r s c h i e d e n e K o s t e n a r t e n 
o Bearbeitung von 12 Monaten 
o I a b e 1 1 e n «* 38 a 1 k e n — u n d K u r v e n q r a f :i. k 
o d .i e B e d i e n u n g d e r M S X 2 - V e r s i o n e r f o 1 q t rn i t 
der Maus 

o 3.5“ Disk oder Kas. für MSX nur 58»- DM 


ohne 


V O K B X 

Der universelle Vokabel trai ner 

Eine zeitsparende Hilfe beim Erlernen von 

V o k a h e 1 n z „ B „ f ü r E33 n g 1 i s c h o d e r H cd 1 1 ä n dis c h „ 

D a s ■ P r o q r a rn rn b e r ü c k s i c h t i g t a u t o rn a t i s c h 

den Ler ner-fol q , schwi er i ge Vokabel werden 

h a u f i q e r a b q e f r - a g t n 

c:> L. e r n s t a n d p e i c h e r b a r 

o L e r n s t a n d s k o n t r o 1 1 e 

o Ausdrucken von Vokabel 1 isten 

o 3.5" Disk oder Kas. für MSX nur 58.- DM 

F-** Ft O F 7 ' I Ft EE M 

Das Geschäf tssof twarepaket für MSX2 
Rechnungen /Lager /Adressen 

E i n k o m f o r t a b 1 e s P r o q r a rn m z u rn S c h r e i. b e n v o n 
R e c:: h n u r i g e n , L i e f e r s c h e i n e n , A n q e b o t e n e t c « 

E ^ 9 o r - u n d A d r e s s e n v e r w a 1 1 u n q s i n d i n d i e s e m 
l 1 " 1 1 7 " o g r a rn rn p a k e t b e r e i t s e n t h a 1 1 e n - 

o 3.5” Diskette für MSX2 nur 178.- DM 


VAN DER ZALM SOFTWARE 


Programm-Entwi ckl ung und Vertrieb 
Elfriede van der Zalm 
Schieferstätte. 2949 Wangerland 3 
Telefon 0 44 61 / 55 24 


Versand erfolgt per Vorkasseiportofrei) , Nachnahßeizsgl. 5.- DH) 






* * MSX-SOFTWARE IM TEST * * 

F-l SPIRIT 

F - 1 Spirit heißt eins der 

beiden neuen Konami MSX-ROM 
Spiele. Dieses Spielmodul zeigt 
einmal mehr, wieviel Konami von 
Compu ter s p ie 1 en versteht. Das 
Formel 1 Autorennen ist sowohl 
für 1 oder 2 Spieler gedacht. 

Ziel des Spieles ist die 
Qualifikation für alle 16 Rennen 
der F-l Serie. Neben der 
Wahloption welches Rennen man 
fahren möchte, ist es auch 
möglich sich ein- Fahrzeug 
auszusuchen. Die Grafik des 
Spieles ist wirklich sagenhaft, 
aber auch der Sound und die 
vielen Wahlmöglichkeiten sind 
ein großes Plus. Ein besseres 
Autorennen haben wir bisher auch 
auf anderen Compu ter sys fernen 
nicht gesehen. Dieses Spiel 
können wir nach eigenen tollen 
Erfahrungen nur empfehlen. 




NEMESIS 2 

Nemesis 2 ist wie der Name schon 
verrät, eine noch bessere 
Version dieses S p i 6 lha 1 1 enh i t s . 
Wer Weltraumabenteuer und totale 
Action liebt und sich über 
feuchte Hände freut, der 
wird seine helle Freude an 
Nemesis 2 haben. Die Grafik ist 
so echt wie in der Spielhalle 
und der Sound geht durch Mark 
und Bein. Konami, bisher 
treuester Produzent von MSX- 
Modulen, hat hier wieder einmal 
ein Spitzenspiel plaziert. So 
etwas gibt es auf anderen 
Heimcomputern bisher noch nicht. 
Sehr empfehlenswert !!! 



8 



PROFIREM 1.1 

PROFIREM ist, wie der Name schon 
sagt, für den geschäftlichen 
Einsatz geeignet. Neben einer 
Adressdatei enthält es ein 
Lagerverwaltungsprogramm und ein 
Fakturierungsprogramm. Die 
Programme sind miteinander 
benutzbar, was eine wichtige 
Voraussetzung für die 
professionelle Nutzung ist. Das 
programirtpaket läuft 
ausschließlich auf MSX2- 
Rechnern, arbeitet aber auch 
schon mit einem Disketten- 
laufwerk. Das die Arbeit mit 2 
Laufwerken komfortabler ist, 
ergibt sich von selbst. Wir 
fanden das Programm sehr 
bed i enungs f r eund 1 i ch , auch, weil 
der Ablauf übersichtlich und 
logisch ist. Neben einem MSX2- 
Computer ist auch ein 80- Zeichen 
Monitor erforderlich. Das ein 
solches Programm ohne Drucker 
sinnlos erscheint, ist klar. 

Das Programm befindet sich auf 
einer 3,5 Zoll Diskette und 
kostet 178,- DM, ein durchaus 
angemessener Preis. 

Vertrieb und Entwicklung: 

Van der Zalm Software. 

Auch im Vertrieb der 0DIN- 
Software GmbH. 

ETATGRAF 

ETATGRAF ist ein Programm zur 
monatlichen Erfassung von 
Ausgaben und deren Auswertung in 
Form von Tabellen und Grafiken. 
Für Leute die Übersicht in ihren 
Finanzwust bringen wollen, oder 
für Planungen aufgrund von 
Auswertungen ein gutes Programm. 
Für den geschäftlichen Einsatz 
ist dieses Programm zwar auch 
geeignet, aber nur 18 Konten 
setzen diesem Sinnen einen engen 
Rahmen. Für private Anwender ist 
ETATGRAF allerdings eine feine 
Sache. Das Programm kostet auf 
einer 3,5 Zoll Diskette 58,- DM. 
Entwicklung und Vertrieb: 

Van der Zalm Software. 

Auch im Vertrieb der ODIN- 
Software GmbH . 



Greenpeace e.V., Hohe Brücke 1 
Haus der Seefahrt 
2000 Hamburg 11 
Telefon (040) 36 12 08-0 
Vereins- und Westbank, Hamburg 
Konto-Nr. 1/471300, BLZ 200 30000 
Postgiro-Konto: Postgiroamt Hamburg, 
Konto-Nr. 20 61-206, BLZ 20010020 
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PRIVATE KLEINANZEIGEN 


An dieser Stelle werden Sie in 
Zukunft Ihre privaten Klein- 
anzeigen finden. 

Das Tollste: 

Jede Kleinanzeige privater 
Natur, egal wie lang, kostet 
abso lut nichts . 

Da kann niemand widerstehen, 
oder ? 

Wenn also etwas preisgünstig 
kaufen möchten, dann liegen Sie 
goldrichtig, wenn Sie unter der 
Rubrik Kaufgesuche inserieren. 
Sie möchten etwas verkaufen ? 
Klar, kein Problem, eine kosten- 
lose Anzeige im MSX-Magazin 
verschafft Ihnen mühelos das 
richtige Gehör. 

Was darf in den Kleinanzeigen 
veröffentlicht werden ? 

Alles !!! Das Inserat muß 
allerdings privater Natur sein 


und außerdem darf der Inhalt 
nicht gegen bestehende Gesetze, 
oder gegen die Regeln der Sitte 
vers toßen. 

Ansonsten haben Sie an dieser 
Stelle die Möglichkeit, 
angefangen vom Kinderwagen bis 
hin zu Ihrem MSX-Rechner alles 
zu inserieren . 

Wie wird das gemacht ? 

Senden Sie den Text Ihrer 
privaten Kleinanzeige an: 
MSX-Magazin - Kleinanzeigen 
Hengs tbrüchelchen 39 
D-5108 Monschau 4 

Telefonische Annahmen sind nicht 
möglich. 

Wichtig : 

Schreiben Sie den Text und Ihre 
Anschrift, sowie Ihre 
Telefonnummer bitte ganz 
deutlich in Druckschrift. 


.•••* 





<4S.\ SOEBEN EINGETROFFEN: 





Unglaublich, aber wahr: 

Die ODON- Sof twar e GmbH bekam 
kurz vor R e d ak t i on s s c h 1 u ß einen 
großen Posten brandneuer MSX- 
Spielmodule, frisch aus Japan. 
Nachdem wir uns kurz angesehen 
hatten, was für eine Qualität 
diese Spiele haben, steht eins 
ganz sicher fest: Der MSX-Markt 


wird um viele neue und tolle 
Spiele bereichert. In der 
Preisliste der OD I N - S o f twa r e 
GmbH, die in diesem Heft als 
Anzeige abgedruckt ist, stehen 
viele der neuen Titel. Sie sind 
also ab sofort lieferbar. Im 
nächsten Heft werden wir einige 
der Module testen. 


10 




ODIN-SOFTWARE GMBH 

PREISTAFEL: 


MSX-ROM Spiele von Konami: 


Athletic Land 

55,- 

DM 

Bill iard 

55,- 

DM 

B o x i ng 

55,- 

DM 

F - 1 Spirit 

65,- 

DM 

Game Master 

65,- 

DM 

Goonies 

55,- 

DM 

Hyper Ra 1 ly 

55,- 

DM 

Hyper Sports 1 

55,- 

DM 

Hyper Sports 2 

55,- 

DM 

Hyper Sports 3 

55,- 

DM 

Kings Valley 

55,- 

DM 

Kn i gh tma r e 

55,- 

DM 

Maze of Gallious 

65,- 

DM 

Metal Gear ( MS X 2 ) 

65,- 

DM 

Nemesis 1 

55,- 

DM 

Nemesis 2 

65,- 

DM 

Pengouin Adventure 

55,- 

DM 

Q - B e r t 

55,- 

DM 

Road Fighter 

55 , - 

DM 

Sky Jaguar 

55,- 

DM 

Soccer 

55,- 

DM 

Super Cobra 

55,- 

DM 

Tennis 

55,- 

DM 

Time Pilot 

55,- 

DM 

Twin Bee 

55,- 

DM 

Vampire Killer ( MS X 2 ) 

65,- 

DM 

Yie Ar Kung Fu 1 

55,- 

DM 

Yie Ar Kung Fu 2 

55 , - 

DM 

MSX-ROM Spiele aus Japan 



mit englischer Anleitung: 



Ar amo 

55,- 

DM 

Bull and Mightys Slim Chance 

55,- 

DM 

Deep Forest (MSX2) 

65,- 

DM 

Dragon King ( MSX2 ) 

65,- 

DM 

Guar d ic 

55,- 

DM 

Super Tritorn ( MSX 2 ) 

65,- 

DM 

Space Camp 

55,- 

DM 

The Roving Planet Styllus 

55,- 

DM 

Tritorn 

55,- 

DM 


MSX-Spiele auf Diskette von MS: 


Alpine Ski 
Battle Chopper 
Flight Deck 
Hard Boiled 
Hype 

Indy 500 

Leather Skirts (MSX2) 
Police Academy 2 
Speedboa t Racer 
TT Racer 

747 Flight Simulator 


Sonstige MSX-Spiele und 
MSX - Anwendungsprogramme: 


45,- 

45,- 

45,- 

45,- 

45,- 

45,- 

50,- 

45,- 

45,- 

45,- 

50,- 


DM 

DM 

DM 

DM 

DM 

DM 

DM 

DM 

DM 

DM 

DM 


Englisch Lexikon (Disk.) 

99,- 

DM 

Funny 8 (8 Spiele, Disk.) 

29,- 

DM 

Print X Press (Disk.) 

99,- 

DM 

Multitext (ROM) 

99,- 

DM 

Bas icode Pake t 



(2 Kass. , 1 Buch) 

69,- 

DM 

Joker (Kass . ) 

25,- 

DM 

14 Programme (Kass.) 

25,- 

DM 

F i bu c omp (Disk. ) 

98,- 

DM 

Ka lkur em (Disk.) 

98,- 

DM 

Etatgraf (Disk.) 

58,- 

DM 

Vokabi (Disk.) 

58,- 

DM 

Profirem (Disk.) ( MS X 2 ) 

178 , - 

DM 

MSX-ROM Spiele von HAL : 



Baske tba 1 1 

55,- 

DM 

Eggerland 2 (engl. Anl.) 

55,- 

DM 

Flipper 

55,- 

DM 


DIESE PREISE SIND GOLD WERT !!! 

ALLE PREISE ENTHALTEN BEREITS DIE MEHRWERTSTEUER. 
VERSAND PER NACHNAHME ZUZUEGLICH VERSANDKOSTEN. 



ANRUF GENUEGT !!! 

ODIN-SOFTWARE GMBH, HANSMANNSTR. 19, D-5100 AACHEN 
TELEFON: 0241 - 55 00 07 
MO.-FR. VON 8.30 BIS 17.00 UHR 
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PHILIPS GEHT 
NEUE WEGE 

Wichtige Informationen aus dem 
Hause Philips: Der letzte 

Produzent von MSX-Rechnern 
organisiert um. Der Bereich 
"Neue Medien 11 , bisher auch 
zuständig für MSX-Rechner, 
befindet sich in der Phase der 
Umstrukturierung, oder gar 
Auflösung. Zukünftig soll das 
letzte Modell der Philips-MSX- 
Reihe, der V G 8280 von einer 
anderen Abteilung vertrieben und 
betreut werden. Der VG 8280 wird 
als Videocomuter mit MSX- 
Ausstattung zukünftig von der 
Abteilung betreut, die auch den 
Bereich Video handhabt. 

Ansonsten fanden wir in der 
neuen Preisliste des Bereiches 
Neue Medien nur noch Monitore 
und Überwachungsanlagen. Von 
MSX-Hard- oder Software war da 
keine Spur mehr. Immerhin wird 
der angeblich gut verkaufbare VG 
8280 auch in Zukunft erhältlich 
sein. Einen anderen Anbieter von 
Hardware konnten wir in der 
Bundesrepublik leider nicht mehr 
ausmachen. Trotzdem ist die Lage 
nicht so schlecht, denn die 
ODIN-Sof tware GmbH in Aachen 
wird sich fortan noch intensiver 
um die alleingelassenen MSX-User 
kümmern. Es gibt dort sogar 
reihenweise neue Software. 





Sie haben dieses MSX-Magazin 
unaufgefordert erhalten. Wir 
bitten Sie trotzdem höflichst 
die 3,- DM für das Magazin an 
uns zu entrichten, denn die 
redaktionelle Bearbeitung, der 
Versand, der Druck und vieles 
mehr haben uns viel Geld 
gekostet. Wir arbeiten 
garantiert nicht mit Gewinn. 
Dieses Magazin soll uns allen 
alleingelassenen MSX-Usern das 
letzte verbliebene Sprachrohr 
sein. Es ist also auch für Sie 
da. Gesetzlich verpflichtet sind 
Sie zur Entrichtung des Geldes 
nicht, es ist ein 

S o 1 i d a r i t ä t s b e i t r a g . Im Abopreis 
ist dieses Heft mit im Preis 
enthalten. 

Bitte zahlen Sie den Betrag 
bitte auf unser Konto Nr. 
46006003 bei der S tad t s pa rka s s e 
Aachen (Blz. 390 500 00) ein, 
oder senden Sie uns die 3,- DM 
in Bar . 

Vielen Dank für ihre Aufmerksam- 
keit im Namen aller MSX-User. 


Hartmut Dirks 


DAS MSX-MAGAZIN PREISRAETSEL 


Das MSX-Magazin Preisrätsel 

In jeder Ausgabe werden wir ein 
Preisrätsel veranstalten. Klar, 
die Gewinnchancen sind viel 
besser als beim Zahlenlotto. 

Also - Aufgepaßt und Mitgemacht! 

Zuerst einmal natürlich die 
Gewinne : 

1 . Preis : 


3 Module, Disketten oder 
Kassetten aus dem Programm der 
ODIN-Software GmbH 

2 . Preis: 


Desgleichen, aber 2 Teile 
3 . Preis: 


Desgleichen, aber 1 Teil 




Mitmachen darf jeder, aber nur 
mit einer Einsendung pro Person. 
Einsendeschluß ist der 1.2.88. 

Es gilt das Datum des 
Pos ts tempe ls . 

Der Rechtsweg ist 
ausgeschlossen. 

Senden Sie eine Postkarte mit 
der Lösung an: 

MSX-Magazin 
Preisrätsel 
Hengs tbrüchelchen 39 
D-5108 Monschau 4 

Hier nun also die Aufgabe: 


Wieviel Bytes hat ein Kilobyte ? 

Es reicht aus, wenn Sie den Wert 
als Zahl auf die Postkarte 
schreiben. 

Die Gewinner werden im nächsten 
MSX-Magazin veröffentlicht. 


HABEN SIE PROBLEME MIT MSX- HARD- ODER SOFTWARE ? 
WIR HABEN DA WAS FUER SIE: 

DIE RUBRIK DIALOG !!! 


Schreiben Sie auf wo Ihnen der 
Schuh drückt, oder geben Sie 
Tips an andere Leser weiter. In 
der Rubrik Dialog 

veröffentlichen wir Ihre Fragen 
und wenn Sie Ihre Telefonnummer 
und Anschrift da r un t e r s e t z en , 
dann werden andere User Sie 


bestimmt beraten oder fragen. 

Das kostet Sie nicht mehr als 
einen Brief, oder eine Postkarte 
an das MSX-Magazin. 

Das MSX-Magazin soll unser aller 
Kontaktmedium sein. Dann legen 
Sie mal los ! 




NOCH BESSER 
NOCH SPANNENDER 
MSX1+2 ROM-MODt 
65- DM 


ERHAELTLICH BEI DER ODIN-SOFTWARE GMBH, HANSMANNSTR. 19, 
D-5100 AACHEN, TELEFON: 0241-550007 (MO-FR VON 8.30 - 17.00 UHR), 
ODER BEI ALLEN GUTEN FACHHAENDLERN. 
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DIESES PROGRAMM MALT NICHT NUR TOLLE GRAFIKEN, ES ZEIGT IHNEN 
IM LISTWG AUCH, WIE SIE SOLCHE EFFEKTE SELBST PROGRAMMIEREN 

KOENNEN. 


10 REM Copyright, toy MSX— Magazin 1988 — Autor Knafl Anton* 

20 REM GRAFIK- VERSCHIEBEST IM l.er u. 2,er SCREEN 

&HC046 = VOM WELCHER ZEILE &HC047 = WIEVIELE ZEILEN 

* 

30 CLEAR70 , &HC000: DEFUSR=&HC000 : COLOR 15, 1, 1: SCREEN1, 1: DEFINTA-Y: KEYOFF : WIDTH32: 
FORI =&HC000TO&HC047 : READAS : POKEI , VAL <”&H”+A$) : NEXT 

40 DATAF3, 21, 0, 18, 3A, 46, CO, FE, 0, C2, 3B, CO , 3A, 47, CO, 47, C5, E5, CD, 4A, 0-, 32, 45, CO, El , 2 


3, 6, 1F, C5, E5, CD, D7 , 7, El, 2B, E5 

50 DATACD, 4D, 0, El , CI , 23, 23 , 10, EF, E5 , 2B, 3A, 45 , CO , CD, 4D, 0, El , CI , 10 , D7 , FB, C9, 11 , 20 , 
0, 47, 19, 10, FD, C3, C, CO, 00, 0, 17 
60 REM #### DEMO #### 

70 A$=” 00030000” : F0RI = 1T08: VPOKEVDP <4>*&H800+96*8+I-l, VAL <”&H"+MID$ <A$, 1,1)): NEX 


T: B=VDP <3)*&H40+12: VF’OKEB, &HA1 : VPOKEB+1 , &H71 

80 A=0 : A$=” 000042 FF42 4 2FF42F0F0F2FFF2F2FFF2” : FOR I = 1T032STEP2 : VPOKEVDP (4 ) *&H800+1 
T 04*8+A, VAL <”&H”+MID$ <A$, 1,2)): A=A+1 : HEXT 

* 90 B$=’' MSX— MAG AZ I N ZEIGT GRAFISCHES FUER SCREEM1 UN 

D S C R E E N 2” 

100 LOCATEO , 21: PR I NT” hhihhhhhhhihhhhhhhihhhhhhhhihhhhhhihhhhhhhihhhhhhhihhhhhhhh 
ihhhh DEMO SCREEN 1” ; : FOR I = 1T070 : LOCATERND ( 1 ) *32 + 1 , RND < 1 ) *20 + 1 : PR I NTCHRS (96 ) ; : N 
EXT : POKE&HC046 , 0 : POKE&HC047 , 23 : GOSUB1 1 0 : GOT0130 

110 B(l)=4: B<2) = 15: C= 1 : F0RJ=1T07: A$ = MI D$ <B$> , C , 13) : C=C+13: VDP (6)=VDP (4) : A=0: FORI I 
= 1T02 : F0RI = 1T0'13: L=ASC(MID$ (A$, 1 , 1) ) : PUTSPRITEA, <20+1*14+11 , 10+ (1*8) + 11*2) , B < 1 1 ) 


, L: A=A+1: X=USR<0) : NEXT: NEXT 

120 D=&H1B03: E=&H1B37: FORJ J = lTO10: X=USR<0) : NEXT: F0RJJ = 1T013: VPOKED, 0: VPOKEE, 0: D= 


D+4 : E=E+4 : X=USR<0) : NEXT: NEXT: RETURN 
130 FORI=1T010 : X=USR<0) : NEXT: GOSUB160 

14 0 SCREEN2 : H=RND (-TIME) *6+1 : FORI I = 1T0250STEPH*2: LINE < 1 1 , 1 1/2)- <254- I 1 , 190- U/H) 

, RND (-TIME) *14+2: LI NE <255-1 1 , RND (-TIME) *190)'- < 1 1 , RND (- 1 ) *190 + 1 ) , RND < 1 ) *14+2 : NEXT 
: L I NE < 0 , 0)- <255, 10) , 1, BF: OPEN”GRP: ”AS1: DRAW” BM40 , 1” 

150 PRINT#1, "SCREEN 2” : CLOSE: POKE&HC046, 1: POKE&HC047, 23: F0RI = 1T064: X=USR<0) : NEXT 
: GOSUB160 : SCREEN1 : GOTO70 

160 F0RI=1T025: G=RND (TIME) *13+1: POKE&HC046, G: POKE^HC047, <G/2)+5: FORJ=lT06: X=USR< 
0) : NEXT: NEXT: FORI I = 1T03000: NEXT: RETURN 
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TWEETVS ALPTRAUM 


EIN PROFESSIONELLES SPIEL MIT ECHT STARKER GRAFIK UND ACTION. 

10 GOTO! 80 

20 SOUNDO, 90: SOUND 1 , 1 : SOUND6 , 1: SOUND7, &H3E: SOUNDS, 16: SOUND11, 30: SOUND12 , 90 
30 POKE&HC046, 1: POKE&HC047, 1: POKE&RC1AO, 1: P0KE&HC37B, INT(D/2)+l: IFBI=1THEN0NINTE 
RVAL=15GC)SUB1 00:1 NTERVALONELSE I NTERVALOFF 

40 DEFUSR=&HC048 : DEFUSR1=&HC090 : DEFUSR2=&HC1B0 : DEFUSR3=&HC240 : D£FUSR4=&HC390 : DEF 
USR5=&HC410 : DEFUSR6=&HC000 : DEFUSR7=&HC640 : DEFUSR8=&HC570 

50 U=USR (0 ) : V=USR1 (MD : X=USR5(0) : IFPEEK (&HC493 ) THENZA=ZA+ (PEEK (&HC493 > *D) : L0CATE2 
, 3: PR INTUS ING” ######” ; ZA: I FB I =2THENA= I NT <RND (-TIME) *8> +14 : POKE&HC046, A: X=USR6 (0) 

: X=USR9 (0) 

60 IFPEEK (&HC494) THENKE=KE+1 : IFKE=15THEN1 10 
70 X=USR2 <0 ) : X=USR7(0> : IFPEEK (&HC234) =15THEN130 
80 X=USR3 (0) : X=USR8 <0) : IFVDP (8) AND32THEN130 
90 F0RI=1T0WE <D) : NEXT: GOTO 50 
100 X=USR4 (0) : RETURN 

110 I NTERVALOFF: KE=0: POKE&HC6AF, &H4 0: POKE&HC6BO, 0: I FB I = 1THENB I =2 : GOSUB1360ELSEB I 
= 1: D=D+1: LE=LE+1 : GOSUB1360 : GOSUB1380 : G0SUB1360 
120 CLS: GOT0330 

130 SOUND3 , 16: SOUND 1 , 1: S0UND13 , 1: FORZ=VPEEK (&H1B00 > TOI 75STEP . 5 : VPOKE&H1BOO, Z: SOU 
NDO, Z: X=USR4 (0) : NEXT: SOUND13 , 1 : FORI = lTO200: X=USR4 (0) : FORI I = lTOD: NEXT: NEXT: INTERV 
ALOFF: POKE&HC234, 10: POKE&HC236, 0 : P0KE&HC6AF , &H40: POKE&HC6BO, 0 

140 LE=LE- 1 : IFLE<0THEND=1 : KE=0: BI = 1 : LE=2: CLS: GOSUB420: GOTO120ELSESOUND8 , 16: SOUND 
1,2 : FOR I =OTOLE : SOUND'13, 1 : LOCATE1 1 , 3: PRINT” ” ; : FORZ1-150T050STEP-2 : SOUNDO, ZI : NEX 
T : LOCATE 1 1 , 3 : PR I NTUS I NG” ##" ; I : FORZ 1 = 1 TOS 0 : SOUNDO , Z 1 : NEXT : NEXT 
150 VPOKE&H1BO 1 , 16: VPOKE&H1B21 , 225: GOSUB170: GOSUB1400: I FB I = 1THEN I NTERVALON 
160 GOTO50 

170 LOCATE7 , 6 : PR I NT” PRESS JOY TO START” : L0CATE7 , 6 : PR I NT” ” : IFST 

ICK (M) ORSTR IG <M) THENRETURNELSEX=USR8 (0) : GOT0170 

180 CLEAR200 , &HC000 : KEYOFF : COLOR 11, .1, 1: SCREEN1 ,0,0: MAXFILES=0: DEF INTA-Q: WIDTH32 
: GOSUB1240 : BI = 1 : KE=0: ZA=0: ZZ=0: D=l: DIMZP (5) , ZPS <5 ) , VE (20) : FORI = lT05: ZP ( I )=0: ZPS < 
I ) =” TWEETY” : NEXT: LE=2: DEFUSR7=&HC4C0 : RESTORE1390 : FORI = 1T020: READWE < I ) : NEXT 
190 RESTORE1440 : FOR I =&HC640TO&HC6B0 : READAS: POKEI , VAL <”&H”+A$) : NEXT 
200 REST0RE12 1 0 : FOR I =&HC57 OTO&HC5E2 : READAS: POKEI , VAL (”&H”+A$) : NEXT: DEFUSR8=&HC57 
0 : FOR I =&HC600TO&HC628 : READAS : POKE I , VAL <" &H” +AS ) : NEXT : DEFUSR9 = &HC600 
210 RESTDREI 100: FOR I =&H2D8TO&H2EF : READAS: VPOKEI , VAL <” &H” +AS ) : NEXT: FORI=&HC4COTOS5 
HC55E: READAS: POKEI , VAL <”&h” +AS) : NEXT 

220 RESTORE1 140 : FOR I =&H208TO&H2D7 : READAS: VPOKEI , VAL <”&H”+A$) : NEXT: F0RI=8T011 : VPO 
KEVDP<3)*&H40+I , &HA1: NEXT: RESTORE1200 : FOR I =&H1 18TO&H1 1F: READAS : VPOKE I , VAL(”&H”+A 
S ) : NEXT 

230 FORI=&H170TO&H177: READAS: VPOKEI , VAL <”&H” +AS ) : NEXT: FOR I =&H1COTO&H1C7 : READAS : V 
POKEI, VAL <” &H” +A$ ) : NEXT: RESTORE: FOR I =&HCOOOTO&HC1 A3 : READAS: POKEI , VAL(”&H”+AS) : NE 
XT 

240 FQRI=&H300TO&H307 : READAS : VPOKEI , VAL (”&H”+AS> : NEXT: FOR I =&H340TO&H34F : READAS : V 
POKEI , VAL (” &H” +A$ ) : NEXT: I=VDP (3)*&H40+12: VPOKEI , &H51 : 1=1+1 : VPOKEI , &H41 
250 FORI I =&H380TO&H387 : READAS: VPOKEI I , VAL <” 8sH” +AS ) : NEXT: 1=1 + 1: VPOKEI , &H71: VPOKEV 
DP (3) >L&H4 0 + 17 , &H7 1 : VPOKEVDP (3 > *&H40 + 18 , &H71: VPOKEVDP (3 ) *&H40+6 , &HA1: VP0KEVDP<3>* 
&H40+7 , &HA1 

260 FORI=&H3800TO&H382F: READAS: VPOKE I ; VAL <” &H” +AS ) : NEXT: FOR I =&HC1BOTO&HC239 : READ 
AS: POKEI , VAL <”&H” +AS ) : NEXT: FOR I =&HC240T03jHC380 : READAS: POKEI , VAL <”&H” +AS ) : NEXT 
270 FGRI=&H3830TG&H383F : READAS: VPOKEI , VAL<”&H”+A$) : NEXT 

280 FORI I=&HC390TO&HC405 : READAS: POKEI I , VAL(”&H”+A$> : NEXT: FORI=&H3COTO&H3C7 : READA 
S: VPOKEI, VAL <” &H” +AS > : NEXT: FOR I =&H400TO&H407 : READAS: VPOKEI , VAL(”&H”+AS) : NEXT 
290 I I=VDP (3>*&H40+15: VPOKEI I , &HC1: 11=11+1: VPOKEI I , &HA1 
300 FORI =&HC4 1 OTO&HC494 : READAS: POKEI, VAL(”&H”+A$) : NEXT 
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310 RESTGRE 1050: FORI=&H180TO&H1CF: READAS : VPOKEI , VAL <” &H” + AS ) : REXT: FOR I =&H440TO&H 
497 : READAS : VPOKE I , VAL <” &H” +A$ ) : REXT 

320 DI MSP <29 ) , ZE(29) : VDP(1)=&HE0: RESTORE1 130 : F0RI=1T029: RE ADSP < I ) , ZE < I ) : REXT: FOR 
I=&H3848TO&H384F : READAS : VPOKEI , VAL (”&H”+A$> : REXT: GOSUB390: CLS: GOSUB1420: VPOKEVDP 
(3>*&H40+25, &HC9: VPOKEVDP C3> *&H40+26, &HF1 

330 I FBI = 1THERRESTORE960 : A=0: VDP < 1 ) =VDP < 1 ) -64 : F0RI = 1T04: READAS: FORI I = 1T0LER < A$ ) : 
VPOKE&H1900+A, ASC(MID$ (AS, 11,1)): A=A+1: REXT: REXTELSE360 
340 GOSUB380 

350 FORI=0TO3: READE1 , E2, E3, E4: PTJTSPRITEI , (El , E2) , E3, E4: REXT: VPOKEVDP (3) *&H40+14 , 
&HE1 : X=USR8 (0) : VDP CD® VDP (1) +64 : GOSUB170 : GOSUB1400 : IRTER VALOR: GOTO20 


360 RESTOREIOIO : A=0: VDP ( 1 ) = VDP ( 1 > -64 : F0RI = 1T03: READAS: FORI I = 1T0LER (AS)': VPOKE&H19 
80+A, ASCOMIDS (AS , I I , 1) > : A=A+1: REXT: REXT: FQRI=0TO8: RE ADE 1 E2 E3 , E4 : PUTSPRITEI (E 

1, E2) , E3 , E4 : REXT: VPOKEVDP (3) *&H40+14 , &H71 

370 GOSUB330 : X=USR8 (0) : VDP ( 1 ) =VDP ( 1 > +64 : FOR I = 1TORRD <-T I ME) *1 00+20 : A= IRT (RRD (-TIM 
E)*8) + 14:'POKE&HC046, A: X=USR6(0) : REXT: GOSUB170: GOSUB1400: GOTO20 

380 LOCATE2, 0: PR IRT” SCORE/€ LIVE£ LEVEL,« HI GIDE” : L0CATE2, 3: PR IRTUSIRG” ######” ; Z 
A: LOCATE11, 3: PR IRTUSIRG”##” ; LE: L0CATE18, 3: F’R IRTUSIRG” ##” ; D: L0CATE24, 3: PRIRTUSIRG 
”######” ; ZZ: RETURR 
390 DEFUSR7 =&HC4C0 

400 FOR I = 0TO2 : IF (ST ICK ( I > ORSTRIG (. I > ) THERM= I : RETURRELSEREXT : X=USR7(0) : GOTO400 

410 FOR I=OT08 : PUTSPRITEI, (24, 10+1*17) , I RT (RRD <-T I ME ) * 14 ) +2 : REXT : RETURR 

420 ZB=ZA : IFZA<ZP (5)THERZA=0: GOSUB410: GOSUB450 : GOSUB390: RETURRELSEZPS (5)=”” : ZP (5 

)=ZA: ZA=0 : FORI=0TO8: PUTSPRITEI , (24, 10+1*17) , IRT (RRD (-TIME) *14 ) +2 : REXT 

430 F0RI = 1T05 : FORI I = 1T05: IFZPOIXZP ( I ) THERSWAPZP ( I ) , ZP ( 1 1 ) : SWAPZFS ( I ) , ZFS ( I I ) 

440 REXT: REXT: ZZ=ZP(1> : GOSUB450: GOTO460 

450 FOR I = 1T05 : LOCATE6 , 1*2: PRIRTI ; ” . ” j : LOCATE12 , 1*2: PRIRTUSIRG”######” ; ZP ( I ) ; : LO 

CATE20 , 1*2: PRIRTUSIRG"\ \” ; ZPS ( I ) : REXT: LOCATEIO, 12: PRIRT” SCORE ” ; ZB: ZB=0: 

RETURR 

460 FORRX= 1 T05 : IFZPS (RX) =” ” THER480ELSEREXT 
470 GOTO390 

480 LOCATE8, 15: PRIRT” A B C D E F G H” : LOCATE8, 17 : PRIRT” I J K L M R O P” : LOCATE8 , 
19 : F’R I RT” Q R S T U V W X” : LOCATE8 , 2 1 : PR I RT” Y Z . # ERD” ; : Sl = l 

490 I FST ICK (M) THERBEEP : IFSTICK (M) =7ARDS1 > 1THERS1=S1- 1ELSE I FST ICK (M) =3ARDS1<29THE 
RS1=S1+1ELSE I FST I CK (M) = 1ARDS1> 8THERS1=S1 -8ELSE IFSTICK (M)=5ARDSl<22THERSl=Sl+8 
500 PUTSPRITE9 , (SP (S'l ) *8 , ZE (S1 ) *8+3 ) : VPOKE&H1B27 , IRT (RRD (-T IME ) *10) +6 
510 I ESTRIG (M) ARDSK27THERZPS (RX)=ZP$ (RX) +CHRS (Sl+64) : LOCATE20 , RX*2: PRIRTZPS (RX) 

: GOSUB590 

520 IFSTRIG (M) ARDS1=27THERZP$ (RX)=ZP$ (RX)+CHRS (46) : LOCATE20 , RX*2 : PRIRTZPS (RX) : GO 
SUB590 

530 IFSTRIG (M> ARDS1=28ARDXL>0THERZP$ (RX)=MID$ (ZPS (RX) , 1, XL-1) : LOCATE20 , RX*2: PRIR 
TZ PS (RX) : GOSUB600 


540 

550 

560 

570 

) 

580 


IFSTRIG (M) ARDS1=29THER570 
I FXL=8THER580 

LOCATE20 , RX*2 : PRIRTUSIRG” \ \” ; ZPS (RX) : GOTO490 

I FZPS (RX ) =” ” THERZPS ( RX ) =” TWEET Y” : L0CATE2 0 , RX*2 : PR I RTUS I RG” \ 


\” ; ZPS (RX 

FORI=&H19COTO&H1 ACO : VPOKEI , &H20: REXT: XL=0: PUTSPR ITE9 , (-10, 209) : GOTO390 
590 SOURD8 , 16: SOURD1 , 0: S0URD13 , 1 : F0RZl=255T01STEP-8 : SOURDO, ZI : REXT: XL=XL+1 : RETUR 
R 

600 S0URD8 , 16: SOURD1, 2: S0URD13 , 1: F0RZl=255T01STEP-4 : SOURDO, ZI: REXT: I FXL> 1THERXL= 
XL-1 : RETURRELSERETURR 

610 DATAF3 , 21, 0, 13, 3A, 46, CO, FE, 0, C2, 3B, CO, 3A, 47 , CO , 47 , C5 , E5 , CD, D7 , 7 , 32 , 45 , CO , El , 
23, 6, 1F, C5, E5, CD, D7 , 7, El, 2B, E5 , CD, CD, 7, El, CI 

620 DATA23 , 23 , 1 0 , EF , E5 , 2B, 3A , 45 , CO , CD , CD , 7 , El , CI , 1 0 , D7 , FB , C9 , 1 1 , 20 , 0 , 47 , 19 , 1 0 , FD 
, C3, C, CO, 20, 11, 2, 3A, F8, F7, F3, 21, 0, 1B, 7, 7, 16 

630 DATAO, 5F , 19, CD, D7 , 7, C6, 3, 5F, 23, CD, D7, 7, C6, 3, 57, 1F, 1F, IF, E6, 1F, 6F, 7B, F, F, F, F, 
F, F, 4F, E6, 3, F6, 18, 67, 79, E6 , EO, B5 , 6F, 22 

640 DAT AFS , F7 , 22 , 83 , CO , FB, C9 , 0 , 71 , 1A, 0 , 0 , 0 , 1 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 3A, F8 , F7 , 32 , 88 , CO , CD, 
D5, 0, 32, 87, CO, AF, 32, 86, CO, 21, 0, 1B, CD 

650 DATAD7 , 7 , 32 , A2 , CI ,21, 1, 1B, CD, D7 , 7 , 32 , Al , CI , 2A , 83 , CO , CD, D7 , 7 , FE, 60 , C2 , CD, CO , 3 
A, 87, CO, FE, 1, C2, CD, CO, 3A, A2, CI, D6, 4, 32, A2, CI 

660 DATA2A , 33 , CO , 1 1 , 20 , 0 , 19 , CD, D7 , 7 , FE, 60 , C2 , F2 , CO , 3A , 87 , CO , FE , 5 , C2 , F2 , CO , 3A , A2 , 
CI, C6, 4, 32, A2, CI, 21, 0, 1B, CD, CD, 7,2 A, 83, CO, 11 
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670 DATA20 , 0 , 19 , CD , D7 , 7 , FE , 20 , C2 , F , CI , 3A, A2 , CI , C6 , 4 , 32 , A2 , CI , 21 , 0 , 1B, CD, CD, 7 , 3A , 
87, CO, FE, 7, C2, 36, CI, 3E, 1, 32, 86, CO, 3 A, Al, CI 

680 DATAFE, 0 , CA , 36 , CI , FE , 1 , CA , 36 , CI , FE , 2 , CA , 36, CI , D6 , 2 , 32 , Al , CI , C3 , 5A , CI , 3A , 87 , C 
0, FE, 3, C2, 5A, CI , 3E, 2, 32, 86, CO, 3A, Al , CI , FE, F8 

690 DATACA, 5A, CI, FE, F9, CA, 5A, CI, FE, FA, CA, 5A, CI, C6, 2, 32, Al, CI, 3A, 88, CO, CD, D8, 0, FE 
, FF, C2 , 6D , CI , 3A, A2, CI, D6, 4 , 32 , A2 , CI , 3A , 86, C-0, 21 

700 DATA2 , 1B , CD, CD , 7 , 3A , 9F , CI , 3C , 57 , 32 , 9F , CI , 3A , AO , CI , BA , C2 , 8C, CI , AF , 32 , 9F , CI , 00 
, 0, 00, 21, 1, 1B, 3A, Al, CI, CD, CD, 7, 21, 0, 1B, 3A, A2 
710 DATAC1, CD, CD , 7 , C9 , CE , 0 , 8C , 97 , 0 
720 DATA FF, FF, 81, 81 , FF, FF, 81, 81 

730 DATA FF, 44, 28, 10, 28, 44, FF, 0, FF, FF, 81, 99, A5 , A5, C3, 81 
740 DATAA'A , 55 , AA , 55 , AA , 55 , AA, 0 

750 DATA18 , 3C, 5A, FF, E7, 7E, 24,66, IC, 2E, FE, 2E, 1F, OE, 04, IC, 38 , 74 , 7F , 76 , F8 , 70 , 20 , 38 
760 DATAC3 , E7 , 5 A , 66 , A5 , 99 , 99 , 66 , 0 , 18 , 7E , E7 , BD , 99 , 42 , 24 , 0 , 18 , 7E , E7 , BD, 99 , 8 1 , 81 
770 DATA3A, 88, CO, CD, D8 , 0 , FE , 0 , C2 , C7 , CI , AF, 32, 36, C2 , 3E, A, 32, 34, C2, C3, 29, C2 , 3E , B, 1 
E, 0, CD, 93, 0, 3E, C, IE, 20, CD, 93, 0, 3E, 1, IE, 0 

780 DATACD, 93, 0, AF, IE, 1, CD, 93, 0, 3E, D, IE, 9, CD, 93, 0, 3A, 36, C2, 3C, 32, 36, C2 , FE, A, CA, C 
, C2, FE, 12, CA, 14, C2, FE, 1A, CA, IC, C2, FE, 22, CA 

790 DATA24 , C2 , FE, 2A, C2, 29, C2, 3E, 1 , C9 , 3E , 7 , 32 , 34 , C2 , C3 , 29 , C2, 3E, 5, 32, 34, C2, C3, 29, 
C2 , 3E , 9, 32, 34, C2, C3, 29, C2, 3E, F, 32 , 34 , C2 , 21 , 3 
800 DATA1B. 3A , 34 , C2 , CD, CD, 7, AF, C9, A, 0, 0, 0, 0, 0 

810 DATAAF, CD, 4B , CO , 2A , 83 , CO , 1 1 , 20 , 0 , 19 , CD, D7 , 7 , FE , 70 , C2 , 6C, C2 , 3E , 20 , CD, CD, 7 , AF, 
IE, 20, CD, 93, 0, 3E, 1, IE, 1, CD, 93, 0, 3E, D, IE, 0 

820 DATACD, 93 , 0 , 6 , 1 , DD, 21 , 6D , C3 , FD, 2 1 , 74 , C3 , 2 1 , 4 , 1B, C5 , E5 , 78 , CD, 4B, CO , 2 A , 83 , CO , C 

D, D7, 7, FE, 68, CC, 58, C3 , DD, 7E, 0, FE, 4, CA, A3, C2 

830 DATA3E, 5 , El , E5 , 23 , 23 , CD, CD, 7, 3E, 4, DD, 77, 0, C3, B'l, C2, 3E, 4 , El , E5 , 23 , 23 , CD, CD, 7, 
3E, 5, DD, 77, 0, FD, 7E, 0, FE, 1,CA, CD, C2 , El, E5 

840 DATA3A , 7B, C3 , 57 , D5 , CD, D7 , 7 , Dl , 82 , El , E5, CD, CD, 7, C3, DE, C2, El , E5, 3A, 7B, C3, 57, D5 
, CD, D7, 7, Dl, 92, El, E5, CD, CD, 7, El, 23, 23, 23, 23, DD 

850 DATA23, FD, 23 , CI , 4 , 3E, 7 , B8 , CA , F2 , C2 , C3 , 79 , C2 , 21 , IC, 1B, E5 , 3E, 7 , CD, 4B, CO , 2A , 83, 
CO, CD, D7, 7, FE, 68, CC, 58, C3, DD, 7E, 0, FE, 4, CA, 1F 

860 DATAC3 , El , E5 , 23 , 23 , 3E, 5 , CD, CD, 7 , 3E , 4 , DD, 77 , 0 , C3 , 2D, C3 , El , E5 , 23 , 23 , 3E, 4 , CD, CD 
, 7, 3E, 5, DD, 77, 0, El, 23, E5, FD, 7E, 0, FE, 1, CA 

870 DATA49 , C3 , 3 A , 7B, C3, 57, D5, CD, D7, 7, Dl, 82, El, CD, CD, 7, C3, 57, C3, 3A, 7B, C3, 57, D5, CD 
, D7, 7, Dl, 92, El, CD, CD, 7, C9, FD, 7E, 0, FE, 1, CA, 66 

880 DATAC3 , 3E, 1 , FD, 77, 0, C9, 3E, 2, FD, 77, 0, C9, 0, 5, 4, 5, 4, 5, 4, 5, 2, 1 , 1 , 1, 2, 2, 2, 1, 0, 0, 0 
,0,22 

890 DATA C3 , C3 , 7E, A5, 81, C3, 66, 3C, C3, C3, 7E, DB, FF, DB, 66, 3C 

900 DATA21 , 1 , 1B, CD, D7 , 7 , 32 , 3 , C4 , 21 , 21 , 1B, CD , D7 , 7 , 57 , 3A, 3 , C4 , BA , DA, BB, C3 , 21 , 21 , 1B 
, CD, D7, 7, 57, 3A, 7B, C3 , 82, 2-1, 21, 1B, CD, CD, 7, C3 , CC, C3 , 21, 21, 1B, 3A, 7B, C3, 57, CD, D7 , 7, 9 
2,21,21, 1B, CD, CD 

910 DATA7, 3A, 5, C4, 3C, 32 , 5 , C4 , FE, A, CA, E7 , C3 , FE, 14, CA, F3 , C3 , 21, 22, 1B, 3A, 4, C4, CD, CD 
, 7, C9, 21, 22, 1B, 3E, 6, 32, 4, C4, CD, CD, 7, C9, AF, 32, 5, C4, 3E, 7, 32, 4, C4, 21, 22, 1B, CD, CD, 7, 
C9, 76, 6, 0 

920 DATAO, 0, 3C, 7E, 81 , F7 , FF, FF, 7 , 5 , 7 , 8, DO, EO , 40, 0 

930 DATAAF, 32, 94, C4, CD, 4B, CO, 2A, 83, CO, E5, CD, D7 , 7, FE, 70, CA, 4E, C4, FE, 78, CA, 5C, C4 , F 

E, 80, CA, 6A, C4, El, 2A, 83, CO, 11 , 20, 0, 19, E5 , CD, D7 , 7, FE, 70, CA, 4E 

94 0 DATAC4 , FE, 78 , CA, 5C, C4 , FE, 80 , CA , 6A, C4, El , AF, 32 , 93 , C4 , C9 , El , 3E, 20 , CD, CD, 7 , CD, 7 
E, C4, 3E, A, C3, 4A,C4, El, 3E, 20, CD, CD, 7, CD, 7E, C4 , 3E, IE, C3, 4A, C4 

950 DATAE1 , 3E , 2 0 , CD, CD, 7 , CD, 7E, C4 , 3E, 1 , 32 , 94 , C4 , 3E, 32 , 32 , 93 , C4 , C9 , AF , IE, 0 , CD, 93 , 
0, 3E, 1, IE, 1, CD, 93, 0, 3E, D, IE, 1, CD, 93, 0, C9, 32, 1 

960 DATA” gh'pphpp h'p ppp x Q x x h 

hppp" C «p Q h' ppp h'ppp hh.li' pp' ” 

970 DAiA” ' x p h Q' Q h hpp "P hh p hppp phhpp' 

, p x ' p p x Q Q hhhp ” 

980 DATA” hhhp hh lipphhQ hp hx' p 'hpp p hh 

P CP P C x ' p ' C x 

990 DATA” hh pph phhp'hpp hphpph ' Q p ' p ' 

x Q' ■ ' x 'Q iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii” 


P 
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1000 LATA 16 , 175, 15, 0, 144, 99, 3, 4, 192, 154, 7, 4, 120, 109, 8, 5, 24, 134, 13,4,80, 118,9,4,4 
8,89,10,4, 176,95, 15,4,225, 175, 15,7 

1010 DATA” hhhhhh.hlihhhhl'ihhl'ihhhhhhhhhhhhhhhh p p px p PP pxp P P hppG 
h. phQhx phppGh' hp pliQ ppphpxh' php' p pphphQpphp'Ghpppppxpp” 

1020 DATA”pxp pG ppppp'pp phpp'p pp pp p" h a p' ' Gp ' pxGp' " ppGpppxpxp P 
ppp'ppx"p phlip '''hp pppGpp" ppp' phhpp' pppxph pp'pxhh” 

1030 DATA” 3ah p hh' hhh ' h" h' G x"h phxGhh" ph phh' x'h"G' ' " 

'px ' p pxhG «px p ' ' xhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh” 

1040 DATA 16 , 175 , 10 , 0 , 144 , 125 , 15 , 4, 192 , 134 , 14 , 4 , 120 , 129, 15,5,24, 134, 14,4,80, 129, 1 
5,4,48, 139, 14,4,0,209, 15,4,20,209, 15,7 

1050 DATA00 , 3C, 7E, 66,66, 66, 7E, 30, 00, 00, 10, 30, 60, 00, 00, OC, 00, 30, 7E, 06, 3E, 60, 7E, 7E 
, 00, 30, 7EG 06, 3E , 06, 7E, 30, 00, 66,66, 66, 7E, 3E, 06, 06 

1060 DATAOO, 7E , 7E , 60 , 70, 06 , 7E , 30 , 00 , 10 , 30 , 7C , 7E , 66 , 7E , 30 , 00 , 7E , 7E , 06 , OC, 18 , 18 , 18 
, 00, 30, 66, 7E, 30, 66, 7E, 30, 00,30, 7E, 66, 3E, 06, 00, 18 

1070 DATA48 , OC, CC, FC, FC, 00, 00,48, 10, 38, 38,38, 38, 38, 38, 10,78, FC, CO, OC, CO, EC, FC, 78 
, 78, FC, EO, 78,30, 90, FC, 78 

1080 DATA78 , FC, E4 , 00 , CO , E4 , FC , 78,78, FC, CC, CC, CC, CC, FC, 78, 78, FC, CC, CC, F8 , DC, CC, CC 
, 78, FC, CO, F8, F8, CO, FC, 78 

1090 DATA40, CO, 00, 00, CO, CO, FC, 78,06, 06, 06,60, 60, 6C, 38,38, 00, 30, 30,00,00,30,30, 00 
1100 DATAO, 3, 7, 6, 6, 7, 3, 0, 70, FF, 83, 0, 0, 83, FF, 70, 0, 30, 00, 0, 0, CO, 80, 0 
1110 DATA21, 00, 1A, 6, 20, C5, 3E, 20, E5, CD, CD, 7, El, 23, CI, 10, F4, DD, 21., 8, C5, 21 , A, 1A, 6, 5 
, 05, 6, B, 05, DD, 7E, 0, E5, CD, CD, 7, El, 23, DD, 23, 01, 10, Fl, 11, 15, 0, 19, CI , 10, E7 , 21, CO, 1A 
1120 DATA6, 20, C5, DD, 7E, 0 , E5, CD, CD, 7 , E.l , 23 , DD, 23 , CI , 10, Fl , C9, 20 , 43 , 4F, 50, 59, 52 , 49 
, 47, 48, 54, 20, 20, 20, 20, 20, 42, 20, 59, 20, 20, 2 0, 20, 4F, 44, 49, 4E, 20, 53, 4F, 46, 54, 57, 2E, 4 
7, 4D, 42 

1130 DATA4S, 20, 20, 31 , 39,38,37,20,20,20,20, 4B, 4E, 41 , 46, 4C, 20, 41 , 2E, 20, 44, 52, 55, 45 
, 43, 4B, 45, 20, 47, 45, 57, 55, 45, 4E, 53, 43, 48, 54, 45, 4E, 20, 4A, 4F, 59, 2D, 53, 54, 49, 43, 4B, 2 

0 


1140 DATAOO, FE, FE, 06, FE, FE, 06, C6, 00, FC, FE, 06, FC, 06, FE, FC, 00, 70, FE, CO, CO, CO, FE, 7C 
, 00, F8, FC, 06, 06,06, FC, F8 , 00 , FC , FE , 00 , FC , CO , FE , FC , 00 , FC , FE , 00 , FC , CO , 00 
1150 DATAOO, 00,70, FE, CO, DC, C6 , FE, 7C, 00, C6, C6, FE, FE, 06, C6, C6, 00,38, 00,38,38,38,38 
,38,00, 7E, 7E , 46,06,46, 7E, 3C, 00, CE, DC, F8 , EO, F8, DC, CE, 00, 00, CO, CO, 00, CO, FE, FE 
1160 DATAOO, 06, EE, FE, D6, D6, C6, 06, 00 , 06 , E6 , F6 , FE , DE , CE, 06 , 00 , 7C, FE, 06 , 06 , C6 , FE, 70 
, 00, FC, FE, 06, FE, FC, CO, CO, 00, 7C, FE, C6 , D6 , CE, FC, 7A, 00, FC, FE, CE, F8 , FC, C6 , C6, 00, 70, F 
E, CO, 7C, 06, FE, 78, 00, 7E, 7E, 18, 18, 18, 18, 18 

1170 DATAOO, C6 , 06, C6, 06, C6, FE, 7C, 00, C6, C6, C6, 60, 6C, 38, 38, 00, C6, D6, D6, D6 , FE, 6C, 60 

, 00, 06, EE, 7C, 38, 70, EE, C6, 00,66,66,66,30, 18, 18, 18, 00, FE, FE, IC, 38,70, FE, FE 

1180 DATA8 , 15, 10, 15, 12, 15, 14, 15, 16, 15, 18, 15, 20, 15, 22, 15, 8, 17, 10, 17, 12, 17, 14, 17, 1 

6, 17, 18, 17,20, 17,22, 17,8, 19, 10, 19, 12, 19, 14, 19, 16, 19, 18, 19,20, 19,22* 19,8,21, 10,21 

, 12,21, 14,21, 16,21 

1190 DATAO, 0, 0, 0, 81, FF, 7E, 7E 

1200 DATAO, 0, 3C, 42, 42, 3C, 0, 0, 0, 0, 0, 0, 0, 0, 18, 18, 0, 3C, 66, 7E, 3C, 66, 7E, 3C 

1210 DATA3A, AO , C5 , FE, 1 , CA, CI , C5 , FE, 2 , CA, CC, 05 , FE , 3 , CA , D7 , 05 , 3E , 1 , 32 , AO , C5 , DD, 21 , 

A9, C5, 21, 80, 3, 6, 8, C5 , E5, DD, 7E, 0, CD, CD, 7, El, 23, DD, 23, CI, 10 

1220 DATAF1 , C9 , 1 , 30, 42 , Al , 91 , 89 , 85 , 42 , 30 , 3C , 42 , 85 , 89 , 9 1 , Al , 42 , 3C, 3C , 4A , 89 , 89 , 91 , 
91, 52, 3C, 3C, 42, 81, Bl, SD, 81, 42, 3C, 3C, 32, AO, C5, DD, 21 , Bl , C5 , C3 , SB, C5 , 3C, 32, AO, C5, DD 
, 21, Al, C5, C3, 8B, C5, 3C, 32, AO , C5, DD, 21, B9, C5, C3, 8B, C5, 90 

1230 DATA3A , 79 , C3 , 32 , 28 , C6 , 2 1 , 5 , 1B, 3E, 1, F5, E5, CD, D7 , 7 , El , 57 , 3A , 28 , 06 , 82 , E5 , CD, CD 


, 7, El, 23, 23, 23, 23, Fl, 30, FE, 7 , C8 , 03, B, 06, C9 , 1 

1240 VDP CI ) =&HE1 : VDP <6 ) =VDP <4 ) : A$=” TWEETY’ S” : B$=” ALPTRAUM” : S0UND7 , &H3E 
1250 I I =&H1B02 : SOUNDO , 1: S0UND1, 1: SOUNDS , 16: S0UND12, 30: FOR I = 1T08 : S0UND13 , 1 : F0RZ1= 
1T0120 : SOUND! , ZI: NEXT: PUTSPR ITE I - 1 , <1*27, 1*10+2) , 13, 42: F0RZ1=48T088 : VPOKEI I , ZI: N 
EXT: A= ASC <MI DS (A4, 1,1)): VPOKEI I , A: I I = 1 1+4: NEXT 

1260 FOR I = 1T08 : PUTSPR ITE I +7 , <1*27+1, 1*10+3) , 15, 42: SOUND 1 3 , 0: FORI 1 = '1T0100: NEXT: VP 
OKE I I , ASC <MID$ < AS , I , 1) ) : I 1 = 1 1+4: FORI 1=1T0300 : NEXT: NEXT 

1270 FOR I=1TQ8 : SOUND 13 , 1 : F0RZ1= 1T0120 : SOUND 1 , ZI : NEXT : PUTSPRITE I + 15 , <1*27, 1*10+80 
) , 13,42: F0RZ1=48T088 : VPOKEI I , ZI : NEXT: A= ASC (KIDS <B$, I , 1) ) : VPOKEI I , A: 11=11+4: NEXT 
1280 FOR I = 1T08 : PUTSPR I TE I +23 , <1*27+1, 1*10+81) , 15, 42: SOUND 13 , 0: FORI 1=1T0100: NEXT: 
VPOKEI I, ASC <MIDS <B$, 1,1)): 11 = 11+4: FORI 1 = 1 TOS 00 : NEXT: NEXT 
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1290 GOSUB1300: FORI =1T0500: NEXT: GOSUB1300: FORI = 1T010: VDP < 1 > =&HE0 : FORI I=1T0350: NE 
XT: VDP ( 1) =äHEl : FORI I = 1T0600: NEXT: HEXT: VDF (6 ) =7 : SCREEN1 , 0: RETURN 

1300 M$=” T200V1405L8EL8V13FL4GL8EL8FL4GL8V14F04LSBL805V13E04L8V12GL805V 13DL804V 1 
2FL4G05L8V14F04L8BL805V13E04L8V 12GL805V13BLÖ04V12FL4G” 

1310 N$=” T20005V14L8EL804 V12CL8V1305DL8 V 1204GL8V13Q5CL8 V1304E” 

1320 0$=” T200O5V14L8CL8V 1204E04L8V13EL8V1204GL8V1305C04V12L8E” 

1330 Ml$=" T200V 1303L8CV12L8CL4GL8EL8EL4GL8V13BV12L8BL8V12GL8GV12L8FL8FL4GL8V13BV 
13L8BL8V 12GL8GV12L8FL8FL4G” 

1340 Nl$=” T200V1303L8CL8V 12CL8V 12GLSGL8EL8E” 

1350 01$=”T20004V13L8EL8V 12EL8GL8GL8EL8G” 

1360 SOUND7 , 60 : PLAYM$ , Ml$ : PLAYNS , Nl$ : PLAYM3 , Ml$ : PLAYNS , Nl$ : PLAYOS , 013 
1370 I FPLAY < 1 ) THEN137 OELSESOUND7 , &H3E: RETURN 

1380 SOUNDS, 16: SOUND 1, 1: SOUNDO, 1: FORI=OTOLE: SOUND 13 , 1: LOCATE11, 3: PRINT” ” ; : FORZ 
1 = 1TQ90 : SOUNDO, ZI: NEXT: LOCATE11, 3: PR I NTUS I NG” ##” ; I : FORZi=250TOOSTEP-2 : SOUNDO, ZI: 
NEXT: NEXT: RETURN 

1390 DATA35, 20, 10,1, -1,-1, -1,-1, -1,-1, -1,-1, -1,-1, -1,-1, -1,-1, -1,-1 

1400 FOR I =&H640TO&H668 : VPOKEI , 255: NEXT: RESTORE14 10 : FORI I=5T011: LOCATE27 , I I : READZ 

1, Z2, Z3: PRINTCHR3 <Z1) ; CHR3 <Z2> ; CHR3 <Z3) ; : NEXT: RETURN 

1410 DATA32 , 2 08, 32, 211, 200, 209, 211, 201, 209, 211, 202, 209,211,203, 209,211,204,209,3 
2,210,32 

1420 RESTORE'1430 : FOR I =&H680TO&H6A7 : READA3 : VPOKEI , VAL (”&H”+A3) : NEXT: RETURN 

1430 DATAO, 0 , 0 , 0 , 0 , 0 , FF , FF, CO , CO , CO , CO , CO , CO , CO , CO , FF, FF , 0 , 0 , 0 , 0 , 0 , 0 , 3 , 3 , 3 , 3 , 3 , 3 

, 3,3, DB, DB, 0, DB, DB, 0, DB, DB 

1440 DATAAF, CD, 4B, CO , 2A , 83 , CO , CD, D7 , 7 , FE , D4 , CA, 64 , C6 , 3A , 34 , C2 , FE , 9 , CA , 7A, C6 , 3A , B 
0, C6, FE, F, CA, 7 A , C6, 3C, 32, BO, C6 , C9 , 3A, AF, C6 , FE, 40, C8, 26, 6, 6F 

1450 DATA3E, FF, CD, CD, 7, 3A, AF, C6, 3D, 32, AF, C6, C9, AF, 32, BO, C6, 26, 6, 3A, AF, C6, FE, 69, C 
A, 95, C6, 6F , AF, CD, CD, 7, 3A, AF, C6 , 3C, 32, AF, C6, C9, 3E, F, 32, 34, C2 
1460 DATAC9 , 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 40, 0 



VIER GEWINNT 


EIN SPIELHIT NUN AUCH AUF IHREM MSX-COMPUTER. VIEL SPASS ! 

10 CLS: KEY OFF : BEEP : S0UND6 , 15 : DBF INTA- Y : GOSUB 340 : Z=2 
20 D=0 : F0RI = 1T07: B( I )=0: F0RJ = 1T06: A< I , J >=3: NEXT : NEXT 
30 IF Z=1 THENZ=2 : G= 1 ELSE Z=1:G=2 

40 IF D=42 THEN 240 ELSE IF N$(Z>=M$ THEN 80 ELSE GOSUB 800 
50 GOSUB 830 

60 GOSUB 260: F0RI = 1T04: IFR (DOTHEN NEXT ELSE 250 
70 GOT030 

80 GOSUB 1140: IFD=0THENS=4 : GOTO150 

90 E=Z: Z=G: GOSUB160: Z=E: V=S: U=T: GOSUB160: I FT= 1 0000THEN15O 
100 IFU=10000THENS=V: GOTO150 

110 IF I NT (U/100)>=I NT (T/l 0 0 ) ANDU> 199 THENS=V 
120 IF B <S) =5ORT<0THEN150 

130 B<S)=B<S)+2: A(S, B<S)V1)=Z: E=Z: Z=G : GOSUB260 : A <S, B <S) -1 > =3: B <S> =B <S) -2 : Z=E: FOR 
I=1T04: IFR ( I ) >2THEN140ELSENEXT : GOT0150 
140 C (S) =— 1 : GOSUB220 : GOTO120 

150 GOSUB 330 : GOSUB 980: IFT=10000THEN250 ELSE 30 

160 FORI = 1T07 : C < I ) =0 : NEXT : F0RS=1T07 : IFB (S> <6THENB <S) =B <S> +1 ELSE C<S)=-3:G0T0 21 
0 
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170 GOSUB 260: B<S)=B<S)-1: F0RI=1T04: IFR<I>>2 THEN C <S) =10000 : GOT0220 

180 IF R < I ) =2 AND S < I ) -D < I ) > OAND D<I)>0THEN C <S) =9999 : GOT0200 

190 IF R(I)+S(I)+T(I)>2 ANDC <S) <9000 THEN C <S> =C <S) +R < I ) *100+T < I ) *98+S+ < I ) 

200 HEXT 
210 NEXT 

220 T=-2: F0RI = 1T07: IF C<I)>T OR CC <1 ) =T MTB RND < 1 ) < . 5 > THENS= I : T=C < I ) 

230 NEXT: RETURN 

240 FORI = lT02 : P < I ) =P < I ) +1 : NEXT : GOSUB1 010 : GOTO 20 
250 T=0 : P <Z ) =P <Z) +2 : GOSUB 1010:GOT020 

260 F0RI = 1T04 : R < I ) =0 : F ( I > =0 : G < I > =0 : T < I ) =0 : S < I ) =0 : NEXT: F0RI = '1T03: J = 0: K=S: L=B(S) + I 
: GOSUB280 : K=S+ 1 : GOSUB280: L=B(S) : GOSUB280 : L=B (S) - 1 : GOSUB280: NEXT: F0RI = '1T04: D(I)=S 
<1 ) : G<I >=0: F<I )=0: NEXT 

270 FOR I = rT03 : J = 0 : K=S: L=B<S)-I : GOSUB280: K=S- 1 : GOSUB280: L=B<S) : GOSUB280 : L=B <S) + I : 

GOSUB280: NEXT: RETURN 

280 J=J+1: IF F < J > THENRETURN 

290 IF G < J ) AND A <K, L) =ZTHENT <J ) =T <J ) +1 : RETURN 
300 IF A <K, L> =ZTHENR <J)=R(J)+1: RETURN 
310 IF A (K , L ) =3THENS <J)=S(J)+1:G<J) = 1: RETURN 
320 F(J)=1: RETURN 

330 D=D+1: B<S)=B<S)+1: A<S, B<S) )=Z: RETURN 

340 CLEAR200 , &HCFFF : RESTORE1350 : FORI=&HDOOOTO&HD1B7 : READAS: POKE I , VAL (” &H” +AS ) : NE 
XT: DEFUSR=&HD000 : X=USR(0) : COLOR1, 1,1: BEEP: POKE&HFCAB, 1: OUT&HAA, I NP <&HAA) AND&HBF : 
P0KE&HF3DB, 0 

350 CLS: SCREEN2 , 0 : C0L0R15, 1, 1 
360 OPEN ”GRP : ” FOR OUTPUT AS #1 
370 GOSUB 430 

380 LINEC45, 30)- <195, 150) , 4, BF 

390 Ql=7 : FOR II=40TO 140STEP20 : Q1=Q1-1 : BB <Q1 ) = I I 
400 Q2=0: FORI=60T0180STEP20: Q2=Q2+1: AA(Q2>=I 
410 NEXT : NEXT 

420 F0RI = 1T06: FOR I I = 1T07 : CIRCLE (AA (II ) , BB ( I ) ) , 8 , 1 , , , 1 . 1 : PA INT (AA ( I I ) , BB < I ) ) , 1 , 1 
: NEXT: NEXT :Z=2:GOTO20: ######### RETURN 

430 FOR I = &H8 A8CTO&H8 A96: BG <2 >=BG (2) + ASC<CHRS<PEEK<D ) ) : NEXT 
440 RESTQRE1320 : F0RI=14336T014343: READALK: VPOKEI , ALK: NEXT 

450 M1S=" T220S1 1M140005L2 VI OCR4ER404L4GABQ5CR404G” : M2S=” T220S1 1M15000 VI 105L2CR4L 
2CR404L4BR4B05CR4R4” 

460 M3S=” T245 V15M6000S105L4C04GR64L8GL4EG05C04BGR64L8GL2FL4GBGR64L8GL4FGB05C04GR 
64L8GL2EL4G05C04GR64L8GL4EG05C04BGR64L8GL2FL4GBGR64L8GL4FGB05L2C. L4CR404L4G” 

470 M4$=” T190V15S1M600004L4GL8 AL4B05L4CL8DL4EL8FL8EL8DL8FL8EL8DL8CL8EL8DL8C04L8B 
L8AL4G . L8AL4B05L4C. L8DL4EL8FL8EL8DL8FL8EL8DL2C” : BG<1)=&H40C 

480 FOR I =50T080 : CIRCLE <122- < 1/3) , I ) , 12, 4 , . 3, 1 . 2, , 9: NEXT: FORI=100T0146STEP2: CIRC 
LE (1,80), 9, 4, .3,1. 2,1.1: NEXT: FOR I =56T01 02STEP2 : CIRCLE <131 , I ) , 15 , 4 , . 2 , 1 . 2 , 1 . 1 : NEX 
T: GOSUB'1420 

490 PLAY M1S , M2S : PLAY M3S : PLAY K3S : PLAYM4S : PLAYM4S 

500 CLS: GOSUB 1160: RESTORE1330 : FOR I = 14336T01443 1 : READALK: VPOKEI , ALK: NEXT 
510 LINE<1, 155)- <255, 190) , 1, BF : N$ < 1 ) =” " : NS <2 ) =" ” 

520 PRESET<30, 160) , 1: COLOR 2 : PRINT#1 , "SPIELER 1 : ” : PRESET <31 , 160) , 1 : COLOR 2:PRIN 
T#1 , "SPIELER 1 :” 

530 PRESET <30, 170) , 1: COLOR 2: PRINT#1 , "SPIELER 2 PRESET <31 . 170 ), 1 : COLOR 2:PRTN 
T#1 , "SPIELER 2 : " 

540 PRESET < 120, 160 ) , 1 : COLOR9 : PRINT#1 , " ► ” 

550 FORI=1T0100: I NS= I NKEYS : NEXT 

560 RESTORE1300 : MS=" COMPUTER” : Q1 = 0: MERK=1 

570 INS = INKEYS : IF INS="”THEN 570 

580 IF ASC < INS ) = 13 AND Q1 = 0 THEN N$<1)=M$ : GOTO 630 
590 IF .ASC < INS) = 13 THEN Q1 = 0:GOTO 630 
600 IF ASC < INS ) <65 THEN 570 
610 IF ASC < INS) >90 THEN 570 

620 READQUAS : PLAYQUAS : Q1=Q1 + 1 : IF Ql<9 THEN N$ < 1 ) =N$ < 1 ) +CHRS < ASC < I NS ) ) : DRAV” BM128 
,160": COLOR 1 : PR I NT#'l , NS < 1 ) : DRAV" BM128 , 160" : C0L0R9 : PR I NT#1 , NS < 1 ) : GOTO 570 ELSE Q 
1=0: GOTO630 
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630 PRESET <128 , 160) , 1 : C0L0R9 : PRIRT#1, RS <1) : PRESET < 129 , 160) , 1 : COLOR9 : PRIMT#1, RS ( 1 
) 

640 PRESET <120, 160), 1: COLOR 1 : PR IRT# 1 , ” ► ” 

650 PRESET < 120 , 170 ) , 1 : C0L0R9 : PRIRT#1 , ” ► ” 

660 RESTORE1300: FORI = 1T0100: I MS= I RKEYS : HEXT 
670 IH$=IHKEYS: IF I HS=”” THER 670 

680 IF ASC<IHS)=13 ARD Q1 = 0 THER H$<2)=M$ : GOTO 730 
690 IF ASC < I HS ) = 13 THER 730 
700 IF ASC < I HS ) <65 THER 670 
710 IF ASC < I NS ) >90 THER 670 

720 READQUAS: PLAYQUAS: Q1=Q1 + 1: IF Ql<9 THER HS <2) =H$ <2> +CHRS <ASC < I RS ) > : DRAW” BMI 28 
, 170” : COLOR 1 : PR I RT#1 , RS (2 ) : DRAW” BM128 , 170” : COLOR15 : PR I HT#1 , HS <2 ) : GOTO 670 ELSE 
Q1=0: GOTO730 

730 PRESET <128, 170) , 1: COLOR15: PRIRT#1, HS <2> : C0L0R15: PRESET <129, 170) , 1: PRIHT#1, HS 
<2 ) 

740 PRESET <120, 170) , 1: COLOR 1 : PR IRT# 1 , ” ► ” 

750 PRESET <200, 140) , 1: COLORIO : PRIHT#1 , "PUHKTE” : PRESET <201, 140) , 1 : COLORIO: PRIRT#1 
, ” PURKTE” 

760 FOR I = 1T02 : I FHS < I ) =” COMPUTER” THERR$ < I ) =M$ 

770 REXT 
780 RETURR 

790 X=USR<0) : PR IRTX: RETURR 

800 IF Z=1THEH PRESET <120, 170) , 1 : COLOR1 : PRIHT#1 PRESET <120, 160) , 1 : C0L0R9: PRI 
RT#1, : BEEP 

810 IF Z=2THEH PRESET <120, 160) , 1 : COLOR 1 : PRIRT#1 PRESET <120, 170) , 1 : C0L0R15: PR 

I RT#1 , : BEEP 
820 RETURR 

830 IFZ=1THEHFAR=9 ELSEFAR=15 

840 S=4 : HSP= 16 : L I RE < AA <S) -6 , HSP) - < AA <S) +6 , HSP+12) , FAR, BF 
850 D8=STICK<0) 

860 IFD8=7 ARD S>1THERG0SUB 1280: GOTO890 
870 IFD8=3 ARD S<7THERGOSUB1280 : GOT0900 

880 IFSTR I G <0 ) =— 1 ARD B<S)<>6 THER 910 ELSE GOSUB 1280: GOTO 850 

890 L I RE <AA <S) -6 , HSP)- <AA<S)+6, HSP+12) , 1, BF: L I RE < AA <S- 1 ) -6 , HSP ) - < AA <S- 1 ) +6 , HSP + 1 
2) , FAR, BF: S=S-1 : PLAYCOPS: F0RI=1T060: REXT: GOTO850 

900 L I RE < AA <S) -6 , HSP ) - < AA <S) +6 , HSP+12) , 1, BF: L I RE < AA <S+ 1 ) -6 , HSP ) - < AA <S+1 ) +6 , HSP+1 
2) , FAR, BF: S=S+1 : PLAYCOPS: FORI=1T060: REXT: GOT0850 
910 GOSUB330 : IF LIK<0THERLIK=0 

920 PUT SPRITEI, <0, -20) , 0, LIK: : LIRE <AA <S)-6, HSP)- <AA <S)+6, HSP+12) , 1 , BF 

930 FOR I =255TOOSTEP- 15 : SOURDO , I : SOUHD1 , 0 :SOURD13,0 : SOURD7 , 1 0 : SOURD8 , 15 : REXT 

940 FOR 1=6 TO B<S)STEP - 1 : CIRCLE < AA <S) , BB < I ) ) , 8 , FAR, , , 1 . 1 : PA IRT <AA <S) , BB < I ) ) , FA 

R, FAR: CIRCLE <AA<S) , BB < I ) ) , 8 , 1 , , , 1 . 1 : PAIRT<AA<S) , BB < I ) ) , 1 , 4 : REXT 

950 SOURDO, 255: FORZK=16TOOSTEP- . 25: SOURDO, ZK: SOURD1 , ZK: S0URD8 , ZK: REXT 

960 CIRCLE <AA<S) , BB <B <S) ) ) , 8 , FAR, ,,1.1: PA IRT <AA <S) , BB <B <S) ) ) , FAR, FAR: LIRE <AA <S) - 

6, HSP)- <AA <S) +6 , HSP+12) , 1 , BF 

970 RETURR 

980 IF Z=1 THER FAR=9 ELSE FAR=15 
990 GOSUB 940 

1000 CIRCLE <AA <S) , BB<B<S) ) ) , 8, FAR, ,,1.2: PAIRT<AA<S) , BB<B<S) ) ) , FAR, FAR: RETURR 
1010 L I RE <205 , 159)- <255, 190) , 1, BF: PRESET<210, 160) , 1: COLOR9: PRIRT#1, P<1) : PRESET <2 
11 , 160) , 1: COLOR9: PRIRT#1, P < 1 ) : CL < 1 ) =9 : CL <2 ) = 15 

1020 PRESET <210, 170) , 1: C0L0R15: PRIRT#1, P<2) : PRESET <211, 170) , 1: C0L0R15: F'RIRT#1, P< 
2) 

1030 FOR I=1T0 20: PRESET <90, 10) , 1: COLORCL <Z) : PRIRT#1 , RS <Z) : PRESET <90, 10) , 1 : COLOR 

1: PR I RT#1 , RS <Z> : REXT 

1040 PLAY M3S : FOR 1=1 TO 100: REXT 

1050 FOR 1 = 1 T06 : FOR I I = 1T07: CIRCLE <AA< I I ) , BB < I ) ) , 8 , 1 , , , 1 . 1 : PA IRT <AA<I I ) , BB < I ) ) , 1 , 

1 : REXT: REXT : PLAY M4S 

1060 PRESET <60, 1) , 1: COLOR4: PRI RT#1, ”RAMER ÄRDERR 1” 

1070 PRESET <60, 10) , 1: COLOR4: PRINT#1, "WEITER 2” 

1080 FOR 1=1 TO 100: IRS=IRKEYS: REXT 

1090 IMS= IRKEYS : IFIRS=””THER 1090 

1100 IF<ASC<IRS)<49 OR ASC < I RS ) >50 ) THER 1090 
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1110 IF IN$=”2” THEN 1120 ELSE GOSUB 510 : P < 1 > =0: P <2> =0 : Z=2: MA=0 : LINE <55, 1 >- <22Q, 
25 ) , 1 , BF : RETURN 

1120 MA=MA+ 1 : L I NE <55 , 1 ) - <220 , 25 ) , 1 , BF : IF MA=3THENMA=1 
1130 Z=MA: RETURN 

1140 IF N$(1)=M$THEN PRESET < 120 , 160 ) , 1 : C0L0R9 : PR INT# 1 , ” > " : PRESET (120, 170) , 1: COLO 
RI : PRINT#1, : BEEP: RETURN 

1150 IF NS <2>-M$THEN PRESET <120, 170) , 1 : C0L0R15: PRINT#! , ”► ” : PRESET <120, 160) , 1 : COL 
OR1 : PR INT#1 , : BEEP: RETURN 

1160 SCREENO: WIDTH40: KEY OFF : COLOR15 : RESTORE 1240 
1170 READ VI , V$ : IF V1=-1THEN 1200ELSE IF V1=-2THEN 1200 

1180 SA=0: FOR I =39T0 < 4 G-LEN (VS) )/2STEP-l: SA=SA+1: LOCATEI , VI: PRINTSPC(SA) : LOCATEI 
, VI: PRINT MIDS <V$, 1, SA) : NEXT 
1190 GOTO 1170 

1200 FOR I=1TQ 50: INS=INKEY$: NEXT: CBS=” PRESS KEY!” 

1210 IN$= INKEYS : FOR I = 1T01 0 : LOCATEI , I : PR I NT MI DS (CBS , I , 1 ) : NEXT : I F INSO”” THEN 1 
230 ELSE FORI=1T010: LOCATEI, I : PRINT” ” : NEXT 
1220 GOTO 1210 

1230 CLS: IF V1=-1THEN 1170ELSE SCREEN2, 2: COPS=” T250V10Q7L32E” : RETURN 
1240 DATA 1,*** 4 GEWINNT *X*,3,BEI DIESEM SPIEL GEHT ES DARUM, 5 , SP I EL-STE I NE 

SO ZU SETZEN, 7, DAß ENTWEDER, 9, H O R I Z O N T A L, 11 , V E R T I K A L, 13, OD. DI 
A G O N A L , 15,4 IN EINER REIHE SIND 

1250 DATA 17, IST DIES DER FALL , 19 , BEKOMMT MAN 2 PUNKTE , 21 , BE I REM IE 1 PUNKT, -1,- 
1 

1260 DATA 1 , MAN HAT DIE MOEGL ICHKE I TEN ,3, COMPUTER - COMPUTER , 5 , COMPUTER - MENSC 
H, 7, MENSCH - MENSCH 

1270 DATA 9, FÜR COMPUTER EINFACH > ENTER <, 11 , DRUCKEN, 13, X XXXXXXXXXXX 
X, 15, GESTEUERT WIRD MITTELS CURSORTASTEN, 17 , UM ZU WERFEN DRUCKE SPACE-TASTE , 20 , 
X VIEL SP ASS ! X, -2, -2 

1280 IF B <S) +1 = 7 THEN PUT SPRITEI , <0 , -20 >, 0 , 0 : RETURN ELSE LIK=LIK+1 

1290 PUT SPRITEI, <AA<S>-7, BB <B <S) +1 > -9 > , FAR, LIK: IF LIK=2THENLIK=-1 : RETURN ELSE R 

ETURN 

1300 DATA 06C16 , 06D16, 06E16 , 06F 16 , 06G16 , 06A16, 06B16, 07C16, 07D16 

1310 CIRCLE <AA<S) , BB <B <S> +1 ) ) , 6 , FAR, , , 1 . 1 : PA INT (AA <S) , BB <B <S) +1 ) ) , FAR, FAR: CIRCLE 
( AA (S) , BB<B<S)+1) ) , 6, 1, , ,1.1: PAINT(AACS) , BB(B<S>+1> ) , 1, 4: RETURN 
1320 DATA60 , 66, 153, 161, 161, 153, 66,60 

1330 DATA 0, 0, 3, 14, 24, 16, 48, 32, 32, 48, 16, 24, 14, 3, 0, 0, 0, 0, 192, 112,24,8,12,4,4,12,8 
,24, 112, 192, 0,0, 0,0, 0,0, 0,3, 6, 4, 4, 6, 3, 0,0, 0,0, 0,0, 0,0, 0,0, 192, 96, 32, 32,96, 192, 0, 
0,0, 0,0, 0,0, 0,0, 0,0, 1,3, 3, 1,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 128 , 192 , 192 ,128,0,0,0,0,0,0 
1340 DATA205, 00, 00, 201 

1350 DATAF3, 21, E9, F3, 36, F, 23,36, 1, 23,36, 1, 3E, 20, 32, AF, F3 , 32, BO, F3, CD, 6F, 0,21,38, 
Dl, 11, 0, 3, 1, 80, 0, CD, 5C, 0, 21, C, 20, 3E, Al, CD, 4D, 0, 23, CD, 4D, 0, 6, 2, 21, 2, D'l, 11, AB, 1A, C 
5, E5, D5, 1, B, 0, CD, 5C, 0, Dl 

1360 DATA21, 20, 0 , 19 , EB, El , D5 , 1 1 , B, 0 , 19 , Dl, CI, 10 , E7 , 6 , D , C5 , 21 , 18 , 20 , CD, C6 , 0 , 3E , 20 
, DF, CI , 10, F3, AF, IE, 1, CD, 93, 0, 3E, 1 , IE, 1 , CD, 93, 0, 3E, 7, iE, 1, CD, 93, 0, 3E, 8, IE, 10, CD, 9 

3. 0. 3E, C, IE, 60, CD, 93, 0 

1370 DAT A3 E , D, IE, 1,CD,93, 0, 11, CA, 18,21, 18, Dl, 1,D, 0,CD,5C, 0, 11,87, 19, 21, 25, Dl, 1, 1 

3.0, CD, 5C, 0, CD, E5 , DO, CD, AC, DO, 6, 60, CD, E7, DO, C9, 6, 1B, 21, E2, 1A, DD, 21, CA, DO, C5, E5, 6 
, 8 , CD , E7 , DO , E 1 , DD , 7E , 0 , CD 

1380 DATA4D, 0, DD, 23, 23, CI, 10, EC, C9, 47, 45,53, 43, 48, 52, 49, 45, 42, 45, 4E, 20, 56, 4F , 4E, 
20, 4B, 4E. 41 , 46, 4C, 20, 41 , 4E, 54, 4F, 4E, 6, SO, C5, 6, AO, C5 , 21 , C, 20 , ED, 5F, E6 , Fl , F6, 1 , CD, 
4D, 0, 23, CD, 4D , 0, CI, 10, EC, CI, 10 

1390 DATAE6, C9, 60, 62, 20, 64,66, 20,68, 6A, 20, 6C, 6E, 61 , 63 , 20 , 65 , 67 , 20 , 69 , 6B , 20, 6D, 6F 
, 43, 4F, 50, 59, 52, 49, 47, 48, 54, 20, 20, 42, 59, 53, 4F, 46, 54, 57, 41, 52, 45, 20, 47, 4D, 42, 48, 2 
0, 20, 31, 39, 38, 37. F, IF, 3F, 38, 70,70, EO, EO, EO 

1400 DATAEO, 70, 70, 38, 3F, IF, F, 80 , CO , EO , EO , 70 , 70 , 38 , 38 , 38 , 38 , 70 , 70 , EO , EO , CO , 30 , 7F, 
FF, FF, E3, EO, EO, EO, EO, EO, EO, EO, EO, E3, FF, FF, 7F, 0, CO, EO, EO, FO, 70, 78, 78, 78, 78, FO, FO, 
EO E0,C0,0 6 , F, F , F , F, F, F, F . F 

1410 DATAf! F, f! f ', F, F, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 60, FO, F8, F8 , FC, FE, FE, EF , E 
7, E3 , E3 , El, EO, EO, EO, 40, 10, 38, 38, 38, 38, 38, 38, 38, B8 , F8 , F3 , F3 , F8, FS, 78, 30, 30 
1420 AS=” G E W I N N T” : Y= (255- <LEN (AS > X8 > > /2 : COLORO : DRAW” BM=Y ; , 0” : PR INT#1 , AS : Y= 
Y+l: DRAW” BM=Y ; , 0” : PRINT#!, AS 

1430 I i = 128-LEN (AS ) XS: FORI I = YTOY+LEN < AS > *8 : FORI=0TO7: IFPOINT (II, I >=OTHEN1450 
1440 NEXT: 11=11+2: NEXT: RETURN 

1450 LINE <11 , (4X36) -25+ (1X4.5))- < 11+2, (4X36) -25+ <1X4 . 3) +2) , 10, B: GOTO! 440 
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T1C-TAC-T0E 

EIN TOLLES SPIEL, DAS AUCH SIE BEGEISTERN WIRD. 


1 REM Copyright by MSX- Magazin 1983 - Auto Knafl Anton* 

10 CLS: COLORlö, 1,1: SCREEN2, 2: SOUNDO, 2: SOUND1, 1 

20 DIMPRC4, 76) , ZU (16) , SF<64) , SU <76 > , CL<45) , LL<33) , CI <33 ) , Fl <16, 4) , F2 <16, 4) : VDP<1 
) =VDP < 1 ) -64 : P0KE&HF3DB, 0: GOSUB'1520 


30 ONINTERVAL=25GOSUB1630 

40 DATAO, 0,0, 63, 63, 63, 63, 63, 63, 63, 63, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0, 0,0,0 
, 255, 128, 128, 128, 128, 128, 128, 128, 128, 128, 128,255, 0, 0, 0, 0, 192,64,64,64,64,64,64,6 
4,64,64,64, 192, 0,0,0 

50 RESTORE40 : F0RI = 14336T0'14399: READA: VPOKEI , A: NEXT 
60 GOSUB1290 

70 COLORIO : DRAW”BM182, 8” : PR INT# 1 , ” BEG I METER” : DRAV” BM183 , 8” : PRINT#1 , *’ BEG I MUER” 

30 C0L0R15 : DRAW”BM207, 18” : PRINT#1, ”F1” : DRAW”BM208, 18” : PRINT#1, ”F1” : DRAV” BM182 , 28 
” : PRINT#1 , "COMPUTER” : DRAW”BM183, 28” : PRINT#1 , "COMPUTER” 

90 DRAV” BM207 , 42” : FRINT#1, ”F2” : DRAV”BM208, 42” : PRINT#1, ”F2” : DRAV”BM190, 52” : PR I MT# 
1, "MENSCH” : DRAW”BM191, 52” : PRINT#! , "MENSCH” 

100 VDP < 1 ) =VDP < 1 ) +64 : ONKEYGOSUB120 , 130 : KEY < 1 ) ON: KEY<2)ON 
110 GOTO 110 


120 KEY < 1 ) OFF : KEY <2>0FF: FORI = OT072: LI NE <170, I)- <255, I + 1 ) , 15 , BF : L I NE < 170 , I )- <255, 
1+1) , 4, BF: NEXT: GOTO 140 

130 KEY < 1 ) OFF : KEY <2>OFF: FORI=0TO72: LINE <170, I)- <255, 1 + 1) , 15 , BF : L INE < 170 , I )- <255, 

1+1) , 4, BF: NEXT: GOTO 150 

140 BE=0 : GOTO 160 

150 BE= 1 

160 NU= 1 


170 IF BE=1THEN240 

180 ZZ= I NT <RND <-T IME> *10 ) +1 

190 I FZZ=0THEN180ELSE I FZZ> 8THEN180 

200 NR=ZU <ZZ ) 

210 SF <NR) =5 
220 GOSUB'1470 
230 NU=NU+ 1 


240 Vl=l : W2=l : W3=l : INTERVALON 
250 D8=ST ICK <0) : D9=STRIG <0> 

260 IFD9THEN320 

270 IFD8=3ANDV1< 16THENW1=W1+1 : W2=W2+1 : S0UND8 , 12:SOUND8,0 
280 IFD8 = 7ANDW1>1THENV1 = V1-1: W2 = V2-1: SOUNDS, 12: SOUND8, 0 
290 I FD8=1ANDW3> 1THENW3=W3- 1 : SOUNDS, 12: SOUND 8 , 0 
300 IFD8=5ANDW3<4THENW3 = W3 + 1 : S0UND8 , 12.-S0UND8, 0 

310 PUTSPRITEO, <F1 <W1 , W3) , F2 ( W2 , W3 ) -2 ) , 15 , 0 : FORI =1T060 : NEXT: GOTO 250 
320 NR=W1+ <16* <V3-1 ) > 

330 INTERVALOFF: PUTSPRITEO, <0,-20) 

340 I FSF (NR) =0THEN350ELSE INTERVALON: GOTO240 
350 SF<NR)=1: KE=1: GOSUB1470 
360 GOSUB 1700: G0T04 1 0 
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370 SF (HR) =5 

380 HU=HU+ 1 

390 GOSUB1470 

400 GOTO 240 

410 IFHU<3THEH1140 

420 J = 0: H=0: M=0: H1 = 0 

430 IFJ=76THEH770 

440 J=J+1 

450 SU<J>=0 

460 FOR I = 1T04 

470 AD=PR(I,J) 

480 SU ( J ) =SU ( J ) -f SF ( AD> : HEXT 
4^0 S=SU(J) 

500 IFS=4THEH1240 
510 I FS= 15THEH680 
520 I FS=3THEH720 
530 IFSO2THEN590 
540 FORK= 1T04 
550 AD=PR (K , J ) 

560 IFSF (AD) < > 0 THEIß 80 
570 N=H+1 : LL (H) = AD 
580 HEXTK 
590 IFSO 10THEN650 
600 FORK= '1T04 
610 AD=PR (K , J ) 

620 IFSF(ADX>0THEH640 
630 M=M+l:CLOt)=AD 
64 0 HEXTK 
650 IFSO5THEH430 
660 H1=H1+1: CI (H1)=J 
670 GOTO430 
680 FOR I = 1T04 
690 AD=PR<I,J) 

700 IFSF (AD ) =0THEH1260 
710 NEXTI 
720 FOR I = 1T04 
730 AD=PR ( I , J ) 

740 IFSF (AD) =0THEH760 
750 HEXTI 

760 HR=AD: GOTO 370 

770 IF (M+Hl+H) >0THEH820 

780 FORH= 1T076 

790 I FSU (H) <= 1THEH1 140 

800 HEXT 

810 GOTO 1220 

820 IFM<4THEH900 

830 FOR I = 1TOM- 1 

840 LP=CL<I) 

850 FORL= I +1TOM 

860 I FLP=CL (L) THEH890 

870 HEXTL : HEXT I 

880 GOTO 900 

890 HR=LP : GOTO 370 

900 I FH<4THEH1 140 

910 FOR I =1T0H- 1 

920 LP=LL ( I ) 

930 F0RL=I+1T0H 
940 IFLP=LL (L) THEH980 
950 HEXTL 
960 HEXT I 
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I E" : DRAW”BM181 , 16” : PRIFT#1 , ”R E M I E* 


970 GOTO 990 
980 FR=LP: GOTO 370 
990 F0RI=1T0M 
1000 A2=CL < I ) 

1010 F0RK=1T0F1 
1020 A1=C1(K) 

1030 FORP= 1T04 
1040 AD=PR (P, Al ) 

1050 IFAD^A2THER1080 
1060 FEXTP : FEXTK : FEXT I 
1070 GOTO 1140 
1080 F0RP=1T04 
1090 A=PR (p, Al ) 

1100 IFA=A2THEF1120 
1110 IFSF < A ) =0THEF 1130 
1120 FEXTP 
1130 FR=A: GOTO 370 
1140 1=0 

1150 1=1+1: IFI=17THEF1190 
1160 FR=ZU < I ) 

1170 IFSF (FR) O0THEF1150 
1180 GOTO 370 
1190 F0RFR=1T064 
1200 IFSF (FR) =0THEF370 
1210 FEXT 

1220 DRAW”BM180, 16” : PRIFT#1 , ”R E M 
1230 GOTO 1640 

1240 FOR I = 1T04 : FR=PR < I , J ) : KE=1 : GOSUB147 0 : PUTSPRITE I , <F1 <B1, ZB) , F2 <B1, ZB>-2> , 15 0 
: FEXT: DRAW”BM188, 8” : PRIFT#1 , "DU HAST” : DRAW"BM189, 8” : PRIFT#1 , "DU HAST” : DRAW”BM184 
> 22” : PR IFT#1 , ” GEVOFFEF” : DRAW” BM185 , 22” : PR IFT#1 , ” GEWOFFEF” 

1250 GOTO 1640 
1260 FR=AD: GOSUB1470 

1270 FOR I = 1T04 : FR=PR ( I , J > : KE=0 : GOSUB147 0 : PUTSPR ITEI, <F1 <B1 , ZB) , F2 (Bl , ZB) — 2 ) 15 0 
: FEXT: DRAW” BM180 , 8" : PRIFT#1, ” ICH HABE” : DRAW” BM18 1 , 8” : PRIFT#1, ” ICH HABE” : DRAW” BMI 
80, 22” : PRIFT#1 , "GEWOFFEF” : DRAW”BM181 , 22” : PRIFT#1 , "GEWOFFEF” 

1280 GOTO 1640 

1290 RESTORE1300 : F0RI = 1T016: READZU < I ) : FEXT 

1300 DATA22, 43, 23,42, 26,39, 27,38, 1,64, 13,52,4,61, 16,49 

1310 DATA22 , 43 , 64 , 1 , 23 , 42 , 6 1 , 4 , 26 , 39 , 52 , 13 , 27 , 38 , 49 , 16 , 22 , 42 , 62 , 2 , 23 , 43 , 63 , 3 , 23 
1320 DATA38 , 53 , 8 , 27 , 42 , 57 , 12,26,33,50, 14,27,39,51, 15,22,39,56,5,26,43,60,9,22 
1330 DAT A38, 54, 6, 23, 39, 55, 7, 26, 42, 58, 10, 27, 43, 59, 11 , 22, 23, 24, 21 , 26, 27, 28, 25 
1340 DATA22.26.30, 18,23,27,31, 19,22,27,32, 17,23,26,29,20,38,39,40,37,42,43,44 
1350 DAT A4 1, 38, 42, 46, 34, 39, 43, 47, 35, 38, 43, 48, 33, 39, 42, 45, 36, 61, 1,21,41,64,4 
1360 DATA24 , 44 , 49 , 4 , 19,34,61, 16,31,46,49, 13,25,37,52, 16,28,40,52, 1, 18,35,64, 13 
1370 DATA30 , 47 , 49 , 1 , 17 , 33 , 52 , 4 , 20 , 36 , 61 , 13 , 29 , 45 , 64 , 16 , 32 , 48 , 4 , 1 , 2 , 3 , 16 , 13 , 14 
1380 DATA15 , 13 , 1 , 5 , 9 , 16 , 4 , 8 , 12 , 16 , 1 , 6 , 1 1 , 13 , 4 , 7 , 10 , 52 , 49 , 50 , 51 , 64 , 61 , 62 , 63 , 61 
1390 DATA49, 53, 57, 64, 52 , 56 , 60 , 64 , 49 , 54 , 59 , 61 , 52 , 55 , 58 , 18 , 34 , 50 , 2 , 19 , 35 , 51 , 3 , 21 
1400 DATA37, 53, 5, 24, 40, 56, 8, 25, 41, 57, 9, 28, 44, 60, 12,30,46,62, 14, 31 , 47, 63, 15, 6, 7 
1410 DATA8, 5, 10, 11, 12,9,6, 10, 14,2,7, 11 
1420 DATA15, 3, 18, 19, 20, 17, 30, 31 

1430 DATA32 , 29 , 21 , 25 , 29 , 17 , 24 , 28 , 32 , 20 , 34 , 35 , 36 , 33 , 46 , 47 , 48 , 45 , 37 , 4 1 , 45 , 33 , 40 
1440 DATA44 , 48 , 36 , 54 , 55 , 56 , 53 , 58 , 59 , 60 , 57 , 54 , 58 , 62 , 50 , 55 , 59 , 63 , 5 1 
1450 FOR I = 1T076 : F0RJ = 1T04 : READPR <J , I) : FEXT: FEXT 
1460 RETURF 
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14/0 oOUNDO , 1 : SOUND 1 , 1 : FOR 18- 15TOOSTEP- . 1 : SOUNDS , 18 : NEXT: ZB= I NT (NR/16 ) +1 ■ I FNR ^16 
= INT (NR/16) THENZB=ZB-1 

1480 IFNR=16THENZB=1ELSEIFNR=32THENZB=2ELSEIFNR=48'THENZB=3ELSEIFNR=64THENZB=4 

1490 B1=NR- <ZB-1>*16 

1500 I FKE= 1THENJ K=6ELSEJ K= 12 

^ 5 ^, LIFE (F1 <B1 > ZB) > F2 <Bi » ZB) )- (Fl (Bl , ZB)+9, F2 (Bl, ZB)+11) , JK, BF: PUTSPRITE5, (Fl (B 
1 ,ZB),F2 (Bl, ZB)-2), 15, 1:KE=0: RETURN 
1520 OPEN”GRP: ” AS1 : GOSUB1780 
1530 L I NE ( 170 , 0 > — (255 , 72 > , 4 , BF 

1 j 40 CH=0 : FOR I I =1T043STEP14 : FOR I =20T0140STEP40 : CH=CH+1 : Fl (CH, 1 ) = I • F2 (CH 1 ) = I I • L I 
NE ( I , 1 1 ) - CI +9 , I I + 1 1 ) , 15 , B : NEXT : NEXT 

1550 CH=0 : FORI I =40T089STEP14 : FOR I =35TO155STEP40 : CH=CH+1 : Fl (CH, 2 ) = I • F2 (CH 2 ) = I I • L 
I NE ( 1 , 1 1) - ( 1+9, 11 + 11), 15, B: NEXT: NEXT 

1560 CH=0: FORI I = 79TO!28STEP14 : FOR I =5 OTO 1 7 0STEP4 0 : CH=CH+ 1 : F 1 (CH , 3) = I • F2 (CH 3)=I I • 
LINE(I , I I )-( 1+9, I 1+11) , 15, B: NEXT: NEXT ’ 

1570 CH=0 : FORI I=118T0167STEP14 : FOR I =65T0185STEP40 : CH=CH+1: Fl (CH, 4) = I • F2 (CH 4)=I I 
: LINE( 1 , 1 1 >-( 1+9, 1 1 + 11) , 15, B: NEXT: NEXT 

lo80 RETURN: REoTORE1590 : FORI I=1T04 : FOR 1 = 1 TOI 6 : READF1 ( I ) , F2 ( I , II): NEXT : NEXT : RETUR 

i 5 ’ l 3 ' 15,93 ’ 15 ’ 113 > 15,46,23,66, 23,86, 23, 106,23,39,31,59,31,79,31,99, 
31, 32, 39, 52, 39, 72, 39, 92, 39 

1600 DATA53 , 58,73,58, 93, 58, 113, 58, 46,66,66,66,86, 66, 106, 66, 39, 74,59,74, 79, 74, 99 
74,32,82,52,82,72,82,92,82 ’ ’ ’ 

DATA53 > 101,73, 101,93, 101 , 1 13 ,.101 , 46, 109,66, 109,86, 109, 106, 109,39, 117,59, 117 
,79,117,99, 117,32, 125,52, 125,72, 125,92, 125 

1 ^°, BATA53 * 144 * 73 * 144,93, 144, 113, 144, 46, 152,66, 152, 86, 152, 106, 152,39, 160, 59, 160 
, i 9, 160,99, 160,32, 168,52, 168,72, 168,92, 168 
1630 PUTSPRITEO, (0 , -20 ): RETURN 

1640 PUTSPR I TE5 , ( 0 , -20 ) : DRA V” BM184 , 50” : PR I NT#1 , ” NOCH MAL” : DRAW” BM185 50” • PR I NT#1 
• "NOCH MAL” : DRAW” BMI 96 , 62” : PRINT#1, ” (J/N)” : DRAW" BM197 , 62” : PRINT#1 ” (J/N- )” 

1650 FORI=1TÖ40 : INS= INKEY$ : NEXT 

1660 INS= INKEYS : I F I N$=” ” THEN1660 

1670 IF I NS=” J"OR INS=” j ” THENRUN 

1680 I F I NS=” N” OR I NS=” n” THENSTOP 

1690 GOTO 1660 

1700 J = 0 : N= 0 : M= 0 : N 1 = 0 

1710 IFJ=76THENRETURN 

1720 J=J+1 

1730 SU(J)=0 

1740 F0RI=1T04 : AD=PR ( I , J ) : SU ( J ) =SU (J ) +SF (AD) : NEXT 
175tf S=SU(J) 

1760 IFS=4THEN1240 
1770 GOTO 1710 

1780 CIRCLE (127, 40), 30, 7, , , 1 . 4 : PA INT ( 127 , 40 ) , 7 : CI RCLE ( 127 , 40 ) , 18 , 6 , , , 1 . 4 : PA I NT ( 1 
27, 40), 6: LI NE (78 , 33 >— (176, 47), 4, BF 

1790 DRAW” BM35 , 37” : PRINT#1, ” T I C-TAC-TOE” : DRAW” BM86 , 37” : PR I NT# 1 , ” T I C-TAC-TOE” 

1800 C0L0R9 : AA$=” Copyright by” : DRAW”BM81 , 90” : PRINT#1 , AAS: DRAW” BM82 , 9 0” "pRINT#l A 

AS: AAS=”MSX- Magazin 1988” : COLOR15 : DRAW” BM36 , 105” : PRINT#1, AAS: DRAW” BM37 , 105” : PRIN 
X $ 1 j A A S> 

1810 COLORIO: AA$=”KNAFL Anton” : DRAW” BM85 , 135” : PRINT#1, AAS: DRAW” BM86 , 135” : PRINT#1 
; AAS 

1820 C0L0R7: AA$=” PRESS KEY ! ” : DRAW” BM86 , 180" : PR I NT#1 , AAS : DRAW” BM87 , 180” • PR INT#1 
AAS : VDP ( 1 ) = VDP ( 1 ) +64 > • rx. a i w j. , 

1830 INS= INKEYS: IFINS=””THEN1830 
1840 VDP ( 1 ) = VDP ( 1 ) —64 : CLS: RETURN 
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MSX-MAGAZIN LESERSERVICE 



Möchten Sie die Lis’tings aus 
diesem Heft als Programme auf 
Diskette ? 

Kein Problem ! ! ! 


Die Versandkosten sind im Preis 
bereits inbegriffen. 


Im Gegensatz zur MSX-Info warten 
Sie bei uns nicht lange auf Ihre 
Diskette . 

Außerdem machen wir es echt 
p r e i s wer t . 

Und so wirds gemacht: 

Senden Sie einen Verrechnungs- 
scheck über 20,- DM, oder auch 
20,- DM in bar an: 

MSX - Magaz in 
Leser Service 
Hengs tbrüchelchen 39 
5108 Monschau 4 


Für ganz Eilige: 

Sie können die Programmdiskette 
auch bei der ODIN- Sof twar e GmbH 
per Telefon bestellen: 

Von Montags bis Freitags in der 
Zeit von 8.30 bis 17.00 Uhr 
können Sie die Diskette unter 
der Rufnummer 0241 - 55 00 07 
bestellen. Die ODIN- So f twar e 
GmbH versendet die Diskette 
allerdings per Nachnahme. Das 
kostet etwas mehr. 

Auf Kassette sind die Programme 
leider nicht erhältlich. 


